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I .  INTRODUCTION 


A.  BACKGROUND 

A  critical  requirement  for  today's  office  and  laboratory 
environments  is  the  sharing  of  expensive  data  and  resources. 
A  network  of  microcomputer  workstations  linked  together  can 
share  data  by  transmitting  files  and  messages  between  users 
and  share  pher ipheral  resources  such  as  printers  by 
scheduling  users  in  the  most  efficient  manner.  In  the  labo¬ 
ratory  environment  in  particular,  it  is  especially  important 
and  desirable  to  share  data,  experiments,  and  software 
development  among  lab  members  and  to  provide  the  means  to 

distribute  data  to  all  members  from  a  single  source  such  as 

the  professor  or  laboratory  supervisor.  Broadcast  transmis¬ 
sion  from  one  workstation  to  all  workstations  of  files  or 
messages,  or  using  one  workstation  as  a  'bulletin  board'  to 
stcre  messages  over  a  period  of  time  for  access  by  all 

members,  both  serve  this  purpose.  A  testbed  for  research 

in  data  and  resource  sharing  in  the  laboratory  environment  is 
a  MULTIBUS  based  computer  configuration  which  permits  a 
single  board  computer  to  communicate  with  three  input /output 
boards  each  containing  eight  RS-232  ports.  This  configura¬ 
tion  serves  as  a  concentrator  for  a  star  cluster  local  area 
network,  which  can  connect  up  to  twenty  four  RS-232 

compatible  devices. 

This  thesis  is,  in  many  ways,  a  companion  to  the  thesis 
dene  by  Lt.  Cmir.  Robert  Hartman  and  Capt.  Alec  Yasinsac, 
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[Ref.  1].  Their  thesis  involved  the  implementation  of  a 
prototype  star  cluster  local  area  network  of  microcomputers 
connected  tc  a  Vax  11/78?  computer  over  the  ETKFRNIT  communi¬ 
cations  device.  The  Vax  11/760  system  operating  under  the 
U V I X  operating  system  provides  access  tc  the  ARPANET  wide 
area  network.  Their  local  area  network  is  operated  under  the 
f'S-DOS  er vir onm ent  and  involves  the  use  of  various  protocols 
necessary  for  c cmmuni ca t i ons  with  ARPANET. 

The  air  of  this  thesis  is  to  provide  an  efficient  data 
communications  environment  limited  to  the  local  area  network 
of  Z-100  workstations  running  under  the  CP/M-85  operating 
system . 

P.  PROJECT  DESCRIPTION 

1 .  Proposed  Capabilities 

a.  local  Pile  Transfer 

Any  microcomputer  should  he  able  to  transfer  a 
file  to  any  other  microcomputer  asynchronously.  Additional¬ 
ly,  any  microcomputer  should  be  able  to  'broadcast'  files  to 
multiple  microcomputers  simultaneously. 

b.  Local  Message  Transfer 

Any  microcomputer  should  be  able  to  transfer 
messages  in  the  same  manner  as  files,  with  the  additional 
capability  of  having  one  microcomputer  serve  as  a  'bulletin 
board'  for  the  others. 
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c.  Directory  Transfer 

Any  microcomputer  should  be  able  to  transfer  a 
directory  in  the  same  manner  as  messages  ana  files. 

d.  Online  User  Identification 

Any  microcomputer  should  he  able  to  obtain  a 
'net  status'?  the  identities  of  all  currently  active  work¬ 
stations  in  the  network,  at  any  given  time. 

2 .  Target  Hardware 

The  proposed  local  area  network  consists  of  up  to 
twenty  four  Z-1C0  microcomputer  workstations  connected  via 
RS-232  communications  ports  to  a  central  MULTIBUS  based 
single  board  computer,  which  acts  as  a  central  switchboard  to 
provide  communications  between  the  workstations. 

3 .  Software 

All  the  applications  software  for  the  microcomputers 
and  the  processing  software  for  the  single  board  computer 
acting  as  a  switchboard  has  been  written  by  the  author  for 
this  thesis. 

C.  STRUCTURE  OR  THE  THESIS 

The  majority  of  this  thesis  is  the  program  code  that 
implements  the  network.  The  accompanying  text  provides  system 
description,  design  decisions,  problems  encountered,  and 
operating  and  maintenance  procedures.  Chapter  II  describes 
the  hardware  of  the  system,  Chapter  III  details  the  8066  CPU, 
and  Chapter  IV  explains  the  CP/M-S6  operating  system.  A 
description  of  the  JANUS/Ada  language  detailing  useful 
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features,  problems  encountered,  and  lessons  learned  from  the 
prospective  of  a  newcomer  to  the  language  with  reference  to 
the  full  ADA  language  is  provided  in  Chapter  V.  Chapter  VI 
explains  the  design  methodology  and  the  details  of  the 
software  implementation  with  descriptions  of  each  major 
module . 

The  appendices  provide  the  program  code,  user  and  mainte¬ 
nance  manuals,  a  glossary,  and  a  bibliography. 
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II .  EAELWARE 


A.  THE  8S/12A  SBC 

The  86/12A  single  hoard  computer  is  a  complete  computer 
system  on  a  single  printed  circuit  hoard.  It  includes  a  16 
hit  8086  CPU,  32K,  expandable  to  64K,  hytes  of  dynamic  RAM,  a 
serial  communications  interface,  three  programmable  parallel 
I/O  ports,  programmable  timers,  priority  interrupt  control, 
MULTIBUS  interface  control  logic,  bus  expansion  drivers  for 
interface  with  ether  compatible  MULTIBUS  expansion  boards, 
and  up  to  16K  bytes  of  ROM.  Table  2.1  lists  the  possible  I/O 
port  addressing  asignments. 


TAELE  2.1 

86/12A  I/O  ASSIGNMENTS 


I/C 

Address 

IC 

Function 

00C0 

825SA 

write:  ICW1,  0CW2 

&  0  C  3 

or 

00C4 

Programmable 

read:  Status  and  Poll 

Inter  rupt 

00C2 

Co ntr oiler 

write:  ICW2,  I C V/ 3 , 

I C  V  4  , 

OCW1 

or 

00C  6 

read:  0CW1  (Mask) 

00C8 

8255A 

write:  port  A  (Jl) 

Pr ogr  ammabl e 

read:  port  A  (Jl) 

00C  A 

Peripheral 

write:  port  B  (Jl) 

Interface 

read:  port  B  (Jl) 

00CC 

write:  port  C  (Jl) 

read  :  pert  C  ( Jl ) , 

Sta  t 

00  CE 

write:  Control 

read:  none 
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00D0 

00D2 

00  D4 

00C6 

8253 

Programmable 

In  terva 1 

Timer 

write:  Counter  0 

( 1  oad  cr.  t  /N  ) 
read:  Counter  0 
write:  Counter  1 

(load  cnt/N) 
read :  C ounter  1 
write:  Counter  2 

(load  cnt/N) 
read:  Counter  2 
write:  Control 
read:  none 

00D8 

Q251 A 

write:  Data  (J2) 

or  00  EC 

US  ART 

read:  Data  (J2) 

00D  A 

write:  Mcde/Command 

or  00DF 

read:  Status 

The  £528  Eight  Channel  Communication  Expansion  Board  is  a 
fully  programmable  syr.chronous/asyncbronous  serial  communica¬ 
tion  channel  with  RS232C  interfaces  connected  to  IC2651 
USARTs  for  serial  communications  with  other  devices,  and  is 
compatible  with  the  MULTIBUS  system.  The  total  address  space 
for  each  heard  is  64,  or  40  Hex,  locations.  Each  hoard  has  a 
base  address  that  is  selectable  by  LIP  switches  on  the  board 
and  is  set  to  0100  Hex  for  this  implementation.  Disregarding 
the  base  address  for  the  moment,  board  1  would  start  at  0, 
board  2  at  40  Hex,  and  so  on.  The  primary  locations  of 
interest  are  the  data  register,  the  status  register,  the  mode 
register,  and  the  command  register.  These  locations  are  0-3 
for  port  0,  4-7  for  port  1,  and  so  cn  up  to  20  Hex  for  the 
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eight  USARTs.  The  remaining  address  locations  are  for  inter¬ 
rupt  handling  ard  are  not  used  in  this  impleir.er. ta t i  on  .  The 
pert  addressing  is  shewn  in  Table  2.2. 

TABLE  2.2 
USART  ADDRESSING 
Address  (Hex)  Function 


R/W:  R:  Status  R/W:  R/»: 

Data  V/':  Syncl/Syr.c2/Dl e  Mode  Command 


0-3 

4-7 

8-3 

C-F 

10-12 

14-17 

18-1B 

1C-1F 

20,28,20,28 
21,29,21,29 
22, 2 A. 22, 3A 
22 , 2B  ,  33 , 3B 
24,2C,24,2C 
25,23,25, 3D 
26 , 2F , 26 , 3E 
27,2F,37,2F 


Port  reset  register  (write  only) 
N/A 

Transmit  interrupt  register 
Transmit  interrupt  requests 
Transmit  interrupt  mask 
Transmit  interrupt  requests 
Ring  detects 
N/A 


3.  THE  Z-100 

The  Zenith  Z-100  is  a  dual  processor  8085/8088  computer 
with  either  one  or  two  5.25  inch  floppy  disk  drives  and  one 
Winchester  hard  disk  drive  providing  up  to  750K  bytes  of 
directly  addressable  RAM.  It  is  powered  by  a  5MHZ  clock. 

The  Z-100's  main  circuit  board  contains  the  8085  and  8088 
CPUs  and  the  3-100  IEEE  €96  bus.  It  has  the  capacity  for 
192K  bytes  of  memory.  Also  contained  on  the  main  board  is 
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the  8041 A  keyboard  processor,  two  RS-232  serial  interfaces 
and  connectors,  one  parallel  interface  and  connector,  and  the 
video  circuit  board  interface. 

The  video  circuit  board  contains  the  CRT  controller  and 
supports  a  tit  napped  video  system  with  up  to  three  tanks  of 
32K  byte  memory  devices  for  red,  green,  and  blue. 

The  floppy  disk  drive  controller,  which  can  support  up  to 
four  £.25  inch  and  four  eight  inch  drives,  and  the  Winchester 
disk  controller  are  on  separate  cards  and  are  each  connected 
to  one  of  the  slots  of  the  S-100  bus. 

Cther  hardware  features  of  interest  include:  the 
825SA  Programmable  Interrupt  Controller,  the  6SA21  Peripheral 
Interface  Adapter,  the  8253  Programmable  Interval  Timer,  and 
the  2651  enhanced  Programmable  Communications  Interface.  The 
Z-100  has  two  serial  ports,  labeled  J1 ,  the  printer  port,  and 
J2,  the  modem  port,  both  of  which  are  connected  through  the 
2661  interface. 


15 


III.  THE  CENTRAL  PROCESSING  UNITS 


A.  THE  8 066 

The  96/1 2 A  single  hoard  computer  uses  the  INTEL  60S 6 
microprocessor  for  its  CPU  (Central  Processing  Unit).  The 
6066  is  a  high  performance,  general  purpose  16  tit  micro¬ 
processor.  It  has  a  20  bit  address  tus,  allowing  access  to  a 
full  megabyte  of  memory.  Since  the  largest  register  in  the 
6086  is  only  16  tits,  it  uses  segmentation  to  form  20  bit 
addressess  from  the  four  16  bit  address  registers;  the  CS 
(Code  Segment),  the  BS  (Data  Segment),  the  SS  (Stack 
Segment),  and  the  IS  (Extra  Segment).  These  four  registers 
reside  in  the  BIU  (Bus  Interface  Unit). 

The  ETJ  (Execution  Unit)  c cn tains  nine  16  bit  registers 
interfaced  to  a  16  tit  data  bus,  four  of  which  are  byte  or 
word  addressable;  the  AX  (AE,  AL),  BX ,  CX,  and  the  DX,  and 
four  of  which  are  only  word  addressable;  the  SP  (Stack 
Pointer),  the  BP  (Base  Pointer),  the  SI  (Source  Index),  and 
the  DI  (Destination  Index).  The  remaining  register  is  the 
flag  register  which  has  nine  usatle  tits;  Carry,  Farity, 
Auxiliary  Carry,  Zero,  Sign,  Trap,  Interrupt,  Direction,  and 
Overflow.  Lastly,  there  is  one  16  tit  IP  (Instruction 
Pointer)  register. 

The  BIU  and  the  EU  operate  asynchronously  in  the  8066. 
Additionally  the  EIU  has  an  instruction  object  code  queue. 
These  two  features  combine  to  virtually  eliminate  instruction 
fetch  time.  By  fetching  the  next  instruction,  while  the 
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previous  is  being  decoded  and  executed,  and  loading  it  in  a 
queue,  the  8086  ensures  that  there  is  always  an  instruction 
ready  the  instant  it  is  required.  Only  when,  a  jump  instruc¬ 
tion  causes  the  current  instruction  sequence  to  te  changed, 
is  the  instruction  queue  flushed. 

B.  THE  £058 

The  Z-100  uses  both  the  6  tit  5055  CPU  and  the  16  bit 
BOSS  CPU.  The  8088  is  the  processor  of  interest  to  this 
thesis.  The  8088  is  compatible  with  the  8086  and  is  (to  the 
programmer)  virtually  identical.  In  particular,  the  8088 
programmable  registers  and  addressing  modes  are  exactly  the 
same.  The  significant  difference  is  that  it  has  an  S  tit 
data  bus  versus  the  16  bit  data  bus  of  the  8086 . 

The  differences  between  the  two  CPUs  are  evidenced  in 
execution  times.  The  8088  has  a  four  byte  instruction  queue 
compared  to  the  six  byte  queue  in  3086.  This  results  in  more 
code  fetches  per  instruction  and  slows  down  instruction  pro¬ 
cessing.  The  8  tit  data  bus  requires  the  8088  to  take  two 
bus  cycles  whenever  the  8086  would  have  used  only  one  to 
fetch  16  bits  of  data.  All  other  execution  time  values  are 
identical. 
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IV.  THE  OPERATING  SYSTEM 


CF/M-85  is  an  operating  system  designed  ty  Digital 
Research  for  the  8086  and  8088  sixteen  hit  microprocessor .  It 
contains  three  program  modules:  the  CCP,  the  3B0S  ,  and  the 
EIOS.  Entry  to  the  BDOS  is  provided  through  the  reserved 
software  interrupt  £224  (E?  Hex),  while  entry  to  the  BIOS  is 
provided  ty  either  a  jump  vector  located  at  offset  2500  Hex 
from  the  operating  system  tase,  or  ty  use  of  the  BDOS 
function  #50.  For  this  implementation,  only  entry  to  the  BDOS 
was  required.  BDOS  functions  were  used  for  keyboard  input, 
console  output,  and  file  operations.  Table  4.1  lists  each 
function  call  used  with  entry  and  return  parameters 
indicated  . 

Access  to  files  in  CP/M-86  is  achieved  by  use  of  the  File 
Control  Block  fFCB)  whose  format  is  shown  in  'Table  4.2.  Each 
FCE  is  identified  by  specifying  its  relative  offset  from  the 
data  segment  register.  When  reading  from  or  writing  to  a 
file,  BDOS  uses  sequential  128  byte  records  to  transfer 
information  from  the  file  into  memory  at  the  current  Direct 
Memory  Address  (DMA)  and  vice-versa.  The  DMA  can  be  specified 
by  the  user  as  the  relative  offset  from  a  specified  or 
default  DMA  base. 

CP/M-86  uses  one  directory  entry  per  16K  bytes  of  file 
data,  termed  an  extent.  During  sequential  reads  and  writes 
the  "cr”  field  of  the  FCE  is  incremented  for  each  128  byte 
record  until  the  next  extent  is  required.  Unless  no  more 
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TABLE  4.1 


BEOS  FUNCTIONS 


FNTRY 

_  V 

/ 

FUNCTION  => 

RETURN 

CL:  02H, 

EL  : 

Ascii  Char 

Console  Output 

None 

CL:  06H, 

DL: 

OFFE  (Input); 
OFFH  (Status); 
Char  (Output) 

Direct  Console  I  /O 

AL:  Char, 
Status 

CL:  ODE 

Reset  Disk  System 

None 

cl:  era. 

DL: 

Selected  Disk 

Select  Disk 

None 

CL:  0FE , 

D  X  : 

FCB  Offset 

Open  File 

AL:  Return 
Code 

(0-3,  OFFH ) 

CL:  10E , 

DX: 

FC?  Offset 

Close  File 

AL:  Return 
Code 

(0-3,  OFFH ) 

CL:  11H , 

DX: 

FCB  Offset 

Search  For  First 

AL:  Directory 
Code 

CL:  12B 

Search  For  N e  r  t 

AL :  Directory 
Code 

CL:  13H  , 

DX: 

FCE  Offset 

Delete  File 

AL:  Return 
Code 

(0,  OFFH ) 

CL:  14H, 

DX: 

FCB  Offset 

Read  Sequential 

AL:  Return 
Code 
(0.  1) 

CL:  15E, 

DX: 

FCB  Offset 

Write  Sequential 

AL :  Return 
Code 

(0,  1,  2 ' 

CL:  16E , 

DX: 

FCE  Offset 

Make  File 

AL:  Return 
Code 

(2,  1,  2,  3, 
OFFH) 

CL:  1AH , 

EX: 

DMA  Offset 

Set  DMA  Address 

None 
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TABLE  4.2 


FCE  FORMAT 


TdrTfl  !f2T' 


/  !  f 8 ' tl j  t2 jt3 ! ex 


si  !s2 


rcjd0|  /  'dn j cr | r0 ! rl ! r2 | 


00  01  02  ...  0£  0S  10  11  12  13  14  15  16  ...  31  32  33  34  35 


where; 

dr:  drive  code  (8  -  16) 

0  =>  default  drive 

1  =>  drive  A 

2  =>  drive  B 


f i . .  .fe; 
tl  -  t3: 


ex : 

si: 
si : 

rc  : 

d0 . .  . dn : 
cr : 

r0  -  r2 : 


•  •  • 

16  =>  drive  P 

File  name  in  Ascii  upper  case 
File  type  in  Ascii  upper  case 
(tl  high  tit  =  1  =>  R/0  file) 

(t2  high  hit  =  1  =>  Sys  file,  no  EIR) 
Current  extent  number  (0  -  31) 

Set  to  0  ty  user  before  file  I/O 
Internal  use 

Internal  use,  set  to  0  on  Make,  Open, 
and  Search 

Record  count  for  ex  (8  -  128) 

CP/M-66  internal  use 

Current  record  for  Read/Write  Sequential 

Set  to  8  by  user 

Optional  random  record  number 


record  or  directory  space  exists,  the  next  extent  is  auto¬ 
matically  opened.  Then  the  "cr"  field  is  reset  to  zero  and  a 
new  directory  entry  for  the  new  extent  is  created. 

Vihen  directory  searches  are  made,  the  128  byte  record 
containing  the  matched  entry  is  placed  in  memory  at  the  DMA 
address.  For  files  with  multiple  extents,  the  first  direc¬ 
tory  entry  is  matched.  There  are  four  entries  per  record. 
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The  location  of  the  matched  entry  is  computed  ty  multiplying 
the  offset  returned  by  the  function  call  ty  22  and  adding  it 
to  the  DMA  address. 

DDTS6  proved  to  be  an  invaluable  tool  tc  the  development 
of  this  thesis.  DDTS6,  a  utility  program  supplied  with  CP/M- 
86,  is  a  dynamic,  interactive  debug  and  test  program  for  the 
CF/M-86  environment.  It  worked  excellently  with  both  the 
high  level  JANUS/Ada  cod°  and  the  assembly  language  sub¬ 
routines  interfaced  with  the  high  level  code.  DISASM66,  the 
disassembler  provided  with  the  JANUS/Ada  system,  presented 
the  high  level  code  in  its  post-compiled  assembly  form  which 
could  then  be  debugged  using  DDT86.  Completion  of  this 
thesis  would  not  have  been  possible  without  the  use  of  DDT86. 
Its  only  drawback  was  a  tendency  to  'slow'  down  a  program  to 
the  point  where  it  would  work  under  DDT86,  but  would  fail  in 
the  real  tire  environment  outside  EPT66,  which  caused 
understandable  confusion. 

Additional  detailed  information  about  CF/M-66  can  be 
found  in  [Refs.  2  &  3]  . 
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V. 


THE  FHOaPAMhINj  LANGUAGE 


ADA  is  the  Department  of  Defense's  mandated  language 
for  embedded  computer  systems.  According  to  DOD  directive 
5000.31  [Ref.  4],  "all  mission  critical  defense  systems  that 
enter  advanced  development  status  after  1  Jan  64,  or  that 
enter  full  scale  development  after  1  Jul  84"  will  be  coded 
in  ADA.  Introduced  in  its  final  form  in  September  1980,  ADA 
has  inspired  much  activity,  discussion,  and  debate.  Due  to 
its  large  size  and  complexity,  commercial  compilers  a  re  only 
now  becoming  available. 

JANUS/Ada,  an  implementation  designed  for  microcomputers, 
was  chosen  for  this  project  because  of  its  availability,  and 
its  suitability  to  systems  programming  tasks.  Although  r.ot 
fully  ADA  compatible  in  its  treatment  of  strings,  use  of 
inline  ASM  statements,  or  the  data  type  Byte,  and  lacking  the 
capability  for  exception  handling  or  concurrent  tasking, 
research  in  the  JANUS/Ada  implementation  should  prove 
invaluable  to  the  effective  use  of  the  full  language  itself; 
a  language  destined  to  be  the  Department  of  Defense's  stan¬ 
dard  for  embedded  systems. 

This  author's  programming  experience  prior  to  this 
project  was  limited  to  only  the  basics  of  Pascal  and  Assembly 
languages.  According  to  Bernard  [Ref.  5],  my  experiences  car. 
best  be  described  by: 
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While  people  who  have  a  high  level  language  should  te 
able  to  learn  what  is  referred  to  as  'the  Pascal  subset' 
of  ADA  with  about  four  weeks  of  full-tine  study,  ma’-y 
educators  report  that  it  takes  six  norths  to  learn  to  make 
effective  use  of  the  language. 

Also  required  are  a  firrr  knowledge  of  structured  program- 
ning  and  software  engineering.  It  is  clear,  however,  that 
the  ADA  designers  were  correct  to  ba  se  the  language  syntax  on 
Pascal  ,  a  language  designed  and  recognized  as  the  standard  to 
teach  students  about  structured  programming. 

The  most  impressive  and  useful  control  structure  in  ADA 
is  the  'Loop'  statement.  The  ability  to  exit  a  loop  wherever 
and  whenever  desired,  combined  with  the  traditional  con¬ 
structs  of  'For'  and  'While',  makes  the  Loop  statement 
applicable  to  an  almost  infinite  set  of  design  structures  and 
truly  supports  the  concept  of  structured,  easy  to  read 
programming.  This  feature  alone  separates  ADA's  control 
structures  from  Pascal,  Cobol,  Fortran,  and  others. 

JANUS/Ada's  resident  assembly  language  interface  is  also 
extremely  useful.  Routines  that  require  high  speed  and 
efficiency  or  specific  bit/byte  manipulation  could  be  coded 
in  assembly  language  and  called  from  the  high  level  program. 
This  feature  answers  the  traditional  systems  programmer's 
need  for  control  of,  and  access  to,  the  specific  machine.  The 
ease  with  which  assembly  code  could  te  used  in  conjunction 
with  high  level  JANUS/Ada  code  was  very  important  to  this 
project.  Almost  all  of  the  I/O  and  file  operations  required 
in  the  programs  were  coded  in  assembly  language.  This  was 
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pertly  for  speed  end  efficiency  end  pertly  because  many  of 
the  I/O  and  file  operations  built  into  JANUS /Ada  would  not 
work  (for  reasons  undiscovered)  after  a  single  call  to  the 
Cp/y-Qg  operating  system  wes  issued. 

ADA's  use  of  packages  as  the  unit  of  program  modularity 
is  an  important  step  in  the  evolution  of  structured  program¬ 
ming  languages.  Packages  contain  data,  procedures,  and/or 
functions  that  for  reasons  of  a  particular  program's  modular 
design  are  grouped  together  to  form  a  unit.  A  program's 
various  packages  are  then  linked  together  for  execution. 
Packages  support  efficient  modular  design  and  allow  for  the 
effective  construction  of  program  libraries  of  frequently 
used  routines  and  data  structures  for  programmers  to  use. 
Data  and  routines  are  made  available  to  users  and  other 
packages  through  Specifications,  which  provide  all  the  neces¬ 
sary  information  for  their  use  while  hiding  the  details  of 
the  implementation,  thus  supporting  the  principle  of 
information  hiding. 

Packages  are  also  the  main  instrument  of  separate 
compilation,  which  is  becoming  a  reauisite  feature  of  modern 
programming  languages.  Unless  the  vehicle  for  communication 
between  linked  packages,  the  specification,  is  changed, 
modifying  a  single  package  requires  only  its  recompilation 
and  not  the  recompilation  of  packages  referencing  it  or 
referenced  by  it. 
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Separate  compilation  is  particularly  important  in 
JANUS/Ada,  and  by  extension,  ADA,  because  the  size  and  com¬ 
plexity  of  the  language  dictates  that  compilers  for  it  te 
also  large,  complex,  and  relatively  slow.  This  causes  soft¬ 
ware  development  problems  of  time  and  storage. 

The  compiler  itself,  while  a  bit  slow,  provided  helpful 

compile  and  run  time  error  checking.  Because  ADA  (and 
JANUS/Ada )  is  a  strongly  typed  language,  an  efficient 
compiler  should  be  able  to  detect  a  majority  of  errors  at 
compile  time,  thereby  saving  development  time.  The  JANUS/Ada 
compiler  does  so  and  even  corrected  certain  syntax  errors 
itself,  producing  a  working  program.  While  it  is,  in  general , 
difficult  to  produce  simple  yet  completely  explanatory  error 
messages,  the  JANUS/Ada  compiler  does  a  noteworthy  job. 

[Ref.  6],  provided  with  the  JANUS/Ada  system,  was  more 
than  adequate  overall.  It  was  not  sufficient  (and  admitted 
sc)  to  teach  the  JANUS/Ada  language,  but  its  manuals  and 
appendices  on  the  compiler,  the  assembler,  the  linker,  etc. 
were  first  rate.  Its  description  of  library  packages  was  also 
very  helpful.  [Ref.  7]  provided  all  the  necessary  informa¬ 
tion  to  begin  learning  ADA  in  a  very  practical  and  concise 
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VI.  TO  IMPLEMENTATION 


A.  METHODCLOC-Y 

This  author's  inexperience  with  the  hardware,  the 
programming  language,  and.  software  development  of  this 
nature  (systems  programming)  and  this  scope  (larger  by  far 
than  anything  attempted  before),  necessitated  complete 
decomposition  and  modularization  of  the  problem.  The  prin¬ 
ciple  of  tcp-down  programming  was  used  as  the  problem  was 
broken  into  smaller  and  smaller  functional  elements  until  the 
most  basic  functions  were  identified.  Such  functions  as  basic 
input  and  output,  opening  and  closing  files,  and  interfacing 
assembly  language  with  JANUS/Ada  were  coded  and  tested. 
These  functional  entities  were  combined  in  a  building  block 
manner,  until  larger  and  more  complex  functions  such  as 
character  transfer  and  file  transfer  between  two  Z-100  were 
completed.  Eventually,  interface  with  the  concentrator  was 
achieved  as  the  system  began  to  take  shape.  The  system  was 
finished  when  the  highest  levels  of  the  program  hierarchy 
were  finally  completed  and  all  the  decomposed  modules  of  the 
problem  were  coded,  tested,  and  linked. 

E.  SY STEPS  DESIGN 

The  problem  of  designing  a  star  cluster  local  area 
network  may  be  decomposed  into  two  parts: 

1.  Programming  the  Concentrator. 

2.  Programming  the  Z-100. 
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1 .  The  Concentrator 


The  role  of  the  concentrator  is  to  process  network 
commands  from  the  Z-100  s ,  establish  and  maintain  data  c orr,— 
municaticn  connections,  and  route  corrrrands  and  data  between 
Z-100S.  The  network  principle  of  'circuit  switching'  is 
implemented  to  rcute  the  commands  and  data.  The  Concentrator 
establishes  and  maintains  data  communication  connections 
between  the  source  and  destination  Z-100(s)  until  the  entire 
user  process  or  'circuit'  is  completed. 

Within  the  Concentrator  the  problem  may  be  further 
decomposed  into  two  parts.  The  Concentrator  must  poll  all 


the  ports 

in 

the  network 

upon  initiation 

and 

af  ter 

c  onnec  t ion 

is 

terminated , 

to  determine  if 

any 

Z-100S 

ready  to  participate  in  the  network,  and  it  must  establish 
and  maintain  data  communication  connections. 

Currently  the  Concent  rater  is  equipped  with  three 
£528  ELC  expansion  boards  for  a  total  of  24  available  ports. 
Network  expansion  can  be  accomplished  by  adding  more  expan¬ 
sion  boards  and  changing  the  value  of  the  constants  'machro' 
end  'boardno'  accordingly. 

The  Concentrator  pells  each  port  looking  for  the 
'active'  signal  from  a  Z-100.  If  there  is  no  response 
after  a  finite  period  of  time,  the  Concentrator  moves  on  to 
the  next  port.  If  the  'active'  signal  is  received,  the 
Concentrator  stops  and  determines  if  there  are  processes 
waiting  fer  this  Z-100  from  other  Z-100S.  If  there  are  no 
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processes  waiting,  the  Concentrator  decodes  the  subsequent 
command  information  from  the  polled  Z-100,  and  establishes 
the  data  communication  connection  for  the  requested  process. 

If  there  are  processes  waiting  for  the  Z-100  being 
polled,  the  Concentrator  decodes  the  first  process  in  line, 
contacts  the  sender  of  that  waiting  process,  and  establishes 
a  data  communication  connection  for  the  transferral  of  the 
waiting  process.  Upon  transfer  of  the  first  waiting 
process,  or  if  the  sender  is  no  longer  active,  the  waiting 
process  is  destroyed  and  the  Concentrator  returns  to  the 
polled  Z-100  in  order  to  decode  the  subsequent  command  infor¬ 
mation,  and  establish  the  data  communi cat  ion  connection 
for  the  original  requested  process. 

The  Concentrator  will  satisfy  at  most  one  waiting 
process  per  polling  cycle;  a  polling  cycle  is  one  loop  around 
the  network  of  twenty  four  ports.  If  there  is  more  than  one 
process  waiting  in  the  queue  for  a  particular  Z-100,  the  one 
which  is  first  in  the  Queue  (first  come,  first  served)  is 
serviced  during  one  polling  cycle.  The  next  queue  element  is 
serviced  during  the  next  polling  cycle  and  so  on  until  there 
are  no  more  waiting  processes. 

There  are  two  methods  cf  transferring  commands  and 
data  in  this  design: 

1.  Direct  Z-100  -  to  -  Z-100. 

2.  Broadcast  to  all  active  Z-100S  in  the  network. 
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The  Z-100  transmits  to  the  Concentrator  the  transfer¬ 
ring  rrethcd  and  the  Concentrator  uses  that  method  for  all 
file,  message,  or  directory  transferral. 

Once  a  data  communication  connection  is  established, 
the  Con centra  tor  acts  as  a  transparent  pathway ,  transferring 
commands  and  data  without  regard,  and  looking  only  for  a 
sequence  of  four  end  of  process  codes  (0Flh)  from  the  desti¬ 
nation  Z-100(s).  Receiving  this  sequence,  the  Concentrator 
terminates  the  connection  and  resumes  polling  where  it  left 
off.  The  Concentrator  polls  in  an  endless  loop,  stepping 
only  to  process  requests  from  the  ports  of  the  network. 

For  single  trar.sferrals ,  error  checking  is  performed 
by  the  sending  and  receiving  terminals.  For  broadcast 
transf errals ,  the  Concentrator  performs  the  error  checking 
between  itself  and  the  receiving  terminals  while  the  sender 
performs  error  checking  between  itself  and  the  Concentrator. 

If  a  data  communication  connection  cannot  be 
established,  the  record  data  structure  'connection' 
containing  fields  for  source,  destination,  and  process  is 
queued  in  a  FIFO  queue  implemented  as  an  array  of  records. 
The  queue  is  limited  to  one  process  per  source  Z-100  per 
destination  Z-100  and  is  limited  to  message  and  file 
processes.  It  is  this  queue  that  the  Concentrator  checks 
after  receiving  the  'active'  signal  from  any  Z-100  during  the 
polling  process  . 
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The  Z-100 


c  . 

The  role  of  the  Z-100  is  to  communicate  with  the  user 
and  the  Concentrator  for  the  purposes  o?  processing  network 
application  programs.  Commands  are  transmitted  from  the  user 
to  the  Concentrator,  enabling  the  establishment  of  the  proper 
data  eommvn icati on  connection.  Then  the  source  Z-100 
transmits  commands  and  data  to  the  destination  Z-100(s'). 

The  network  applications  consist  of  three  Z-100  to 
Z-100  functions;  file  transfer,  message  transfer,  and  direc¬ 
tory  transfer,  ard  one  Z-100  to  Concentrator  function?  net 
status.  kithin  each  Z-100  to  Z-100  function  is  a  sending 
process  and  a  receiving  process.  It  is  these  processes  that 
serve  as  the  network  unit  of  execution.  The  source  Z-100 
initiates  a  process,  the  Concentrator  establishes  a 
connection  with  the  destination  Z-100(s),  and  maintains  the 
connection  until  the  process  is  finished.  Then  the  next 
urccess  is  initiated  and  so  on. 

Both  the  Z-100  and  the  Concentrator  use  the  record 
data  structure  'connection'  to  establish  data  communication 
connections.  'Connection'  contains  three  fields?  'source', 
'destination',  and  'process'. 

TYPE  conctn  IS 
RECORD 

source:  byte? 
destination:  byte? 
process:  byte? 

END  RECORD? 
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The  source  Z-100  creates  the  connection  record  and 
transmits  it  to  the  Concentrator  where  it  is  decoded  and  the 
proper  pathway  is  established.  When  the  destination  Z-100(s) 
acknowledge  the  connection,  communication  begins.  If  the 
connection  can  not  be  established,  the  connection  record  is 
stored  by  the  Concentrator  in  the  queue.  Upon  completion  of 
the  process,  the  connection  record  in  the  Concentrator  and 
the  Z-100  is  destroyed. 

The  Z-100  network  application  programs  are  menu 
driven  and  implemented  in  an  infinite  loop.  The  Z-100 
transmits  an  'active'  signal  to  the  Concentrator  and  waits 
to  be  polled  by  the  Concentrator.  When  polled  the  user  is 
told  if  there  is  a  process  waiting  for  him/her  and  is 
requested  to  receive  that  process.  Then  the  user  selects  a 
process  from  the  menu  and  the  Z-100  and  the  Concentrator 
carry  out  that  process  as  described  above.  After  process 
completion,  control  is  returned  to  the  infinite  loop  which 
transmits  an  'active'  signal  again,  waits  to  be  polled,  asks 
for  user  input,  and  so  on  until  the  user  terminates  the  loop 
with  "control  x". 

3 .  Command  and  Data  Communication 

A  main  concern  of  this  thesis  is  efficient  data 
communications.  Fast,  error  free  transmission  cf  commands 
and  data  along  the  data  communication  connection  for  both 
point  to  point  and  broadcast,  is  achieved  by  an  immediate 
echo  method  implemented  in  JANUS/Assembler  language  for 
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CP/T-86.  The  method  uses  the  feet  that  instruction  execution 
tire  is  much  shorter  than  data  transmission  time  ard  attempts 
to  minimize  wait  times  as  much  as  possible.  All  bytes 
received  by  any  procedure  are  immediately  echoed  and  the 
received  echoes  are  then  checked  for  error. 

The  sending  procedure  transmits  a  byte  and  then  waits 
for  an  echo  from  the  receiver.  It  compares  the  echo  with  the 
transmitted  byte.  If  an  error  is  detected,  the  sending 
procedure,  depending  on  its  function,  either  retransmits 
immediately  or  transmits  an  error  code  followed  by  the  re¬ 
transmitted  byte.  (Tor  the  broadcast  method  the  byte  is 
transmitted  to  all  destination  Z-l£0s  before  the  echoes  are 
received  and  compared.) 

The  receiving  procedure  receives  a  byte  and  then 
immediately  echoes  it  before  proceeding  to  process  the 
received  byte.  If  an  error  code  is  received  when  it  returns 
to  receive  the  next  byte,  the  receiver  erases  the  byte  in 
error  and  returns  to  receive  the  retransmitted  byte. 

The  method  is  sufficiently  general  in  design  to 
handle  more  difficult  errors  than  just  errors  in  data  bytes 
transmitted  from  the  sender  to  the  receiver.  For  instance, 
the  method  will  detect  and  correct  errors  in  the  echo 
transmitted  back  to  the  sender.  This  is  a  particularly 
insidious  error  because  the  receiver  actually  received  the 
correct  data  byte,  tut  the  sender  doesn't  think  so  and  sends 
out  an  error  code  or  retransmits  the  data  byte.  The  method 
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will  also  correct  multiple  errors  such  as  when  a  data  hyte  is 
transmitted  in  error  and  so  is  the  subsequent  error  code. 
The  sender  will  stay  with  the  error  until  it  is  corrected  to 
its  satisfaction  and  the  receiver  will  always  know  how  many 
received  data  bytes  are  in  error  and  hew  many  to  erase.  This 
is  true  even  when  a  procedure  is  both  a  sender  and  a  receiver 
as  in  the  procedure  'Setup'.  Additionally,  every  receiving 
procedure  has  a  finite  waiting  period  to  ensure  the  final 
byte  and  echo  are  received  properly. 

4 .  Design  Considerations 

a.  Assembly  language 

JANUS/Assembler  combined  with  CP/M-S6  BDOS  fun¬ 
ction  calls  was  used  for  all  I/C  subroutines  except  for  the 
display  of  non-conditional  strings  to  the  user.  This  was 
decided  because  of  the  need  for  speed,  efficiency,  and  imple¬ 
mentation  cf  the  data  c cmmunicati on  connection.  Tecause  of 
an  undiscovered  bug  in  JANUS/Ada,  use  of  CP/M-86  function 
calls  invalidated  the  perfectly  adequate  built  in  JANUS/Ada 
file  operation  routines.  Thus  these  functions  too  were 
implemented  in  JANUS/Assembler  with  CP/M-66  BDOS  function 
calls. 

b.  Memory  Management 

The  Concentrator  programs  are  estimated  to  occupy 
25K  of  the  64K  bytes  of  memory  in  the  Concentrator.  Due  to 
the  limited  size  of  the  queue  fer  waiting  processes,  and  to 
the  use  of  message  switching  as  the  principle  of  network 


communication,  circuit  management  was  deemed  not  necessary 
and  was  not  implemented. 

c.  Process  Coordination 

The  network  processes  do  not  use  interrupts  for 
coordination.  Processes  execute  sequentially  until  communi¬ 
cation  is  required.  This  communication  is  designed  such  that 
when,  say,  a  sender  is  waiting  to  transmit  specific  commands 
or  data,  the  receiver  will  eventually  'rendezvous'  (although 
not  in  the  concurrent  sense)  and  the  proper  receiving  pro¬ 
cedure  will  receive  and  process  the  transmitted  commands  or 
data.  When  necessary,  such  as  when  polling  ports,  processes 
will  wait  a  finite  period  of  time  and  then  move  on.  Occas- 
sicnally,  a  process  will  stop  urtil  the  receiver  tells  it  to 
continue.  Blocks  of  data  are  identified  by  end  of  block 
codes  (0FFh),  and  codes  are  transmitted  to  tell  the  receiver 
whether  or  not  this  was  the  last  block.  Special  care  was 
exercised  in  the  implementation  to  ensure  that  deadlock  did 
not  occur  ie:  both  processes  expecting  to  receive  or  to 
transmi t . 

The  Concentrator,  which  is  both  a  receiver  and  a 
sender,  employs  the  same  design  principles  when  polling 
ports,  checking  or  updating  queues,  and  establishing  data 
communication  connections.  Once  a  connection  is  established, 
it  treats  everything  as  a  block  of  data,  moving  on  only  when 
a  sequence  of  four  end  of  process  codes  (0Flh)  from  the 
destination  Z-100(s)  is  received. 
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d.  The  Data  Type  Byte 

Use  of  the  JANUS/Ada  predefined  data  type  Eyte, 
which  is  not  ADA  standard,  was  necessitated  by  the  network 
requirement  to  transmit  all  eight  bits  of  each  data  byte  and 
the  method  used  to  transmit  and  receive  commands  and  data. 
The  data  type  Character  with  only  seven  bits,  and  the  data 
type  Integer,  which  is  not  well  suited  for  the  manipulations 
needed  for  t ran smission,  were  not  sufficient  to  represent  the 
data  byte  used  in  command  and  data  communication  in  this 
implementation. 

C.  SYSTEM  EXECUTION 

The  implemented  network  application  programs  are  menu 

and  command  driven.  At  program  start  and  after  each  process, 

the  'active'  signal  is  transmitted  to  the  Concentrator  and 

the  program  waits  to  be  polled.  When  polled  the  program  is 

informed  if  there  are  processes  waiting  for  this  Z-100.  If 

there  are  processes  waiting,  the  user  is  asked  to  receive 

them.  Then  the  user  is  presented  with  the  following  menu: 

CTRL_ S  =  SEND  TILE 

CTRL_R  =  RECEIVE  FILE 

CTRL  T  =  SEND  MESSAGE  (TALK) 

CTRL_I  =  RECEIVE  MESSAGE  (LISTEN) 

CTRL_F  =  SEND  DIRECTORY 
CTEL_G  =  RECEIVE  DIRECTORY 
CTRL_W  =  GET  NET  STATUS  (WHO) 

CTRL  S  =  RECEIVE  BULLETIN  BOARD 

OTHERS  =  RECHECK  FOR  INCOMING  FILE  OR  MESSAGE 

The  user  makes  his  or  her  selection  and  is  placed  in  the 

appropriate  environment.  Upon  completion  of  each  process. 


n  c; 


the  user  can  press  any  key  and  he  returned  to  the  main  menu 
or  pause  indefinitely.  Upon  return  to  the  main  me^u,  the  user 
is  given  the  option  of  exitting  using  "C?RL_X"  or  continuing 
’’ANY  KEY". 

To  send  a  file,  the  user  is  prompted  for  the  disk  drive, 
file  name,  and  file  type  of  the  file  he  wishes  to  send.  The 
user's  input  is  displayed  as  he  types  and  invalid  entries 
(those  characters  not  permitted  in  file  names  and  file  types 
ty  CP/M-86)  are  flagged.  A  sample  entry  might  look  like 
this: 

FN  . FT  :  myfil?  INVALID  FNTRY 

myf il _ 

Cnee  entered  the  file  name  and  type  are  capitalized  in 
accordance  with  CP/M-86  format  and  the  user's  choice  is 
displayed  for  confirmation: 

C:  MYFILE.TXT  IS  SELECTED.  PRESS  RETURN  TO  CONFIRM, 

ANY  OTHER  KEY  TO  RESELECT. 

Upon  confirmation,  the  user  is  prompted  for  the  destina¬ 
tion  terminal  (or  broadcast)  and  the  source  terminal.  Then  a 
search  is  made  for  the  file.  If  it  can  not  he  found  an  error 
message  is  displayed  and  tne  user  is  given  the  opportunity  to 
reselect.  If  it  is  found  the  file  is  opened.  Then,  if  the 
destination  is  active,  the  transmission  begins.  Otherwise,  a 
message  indicating  that  the  destination  was  inactive  is  dis¬ 
played  and  the  user  is  returned  to  the  main  menu. 

The  file  is  sent  in  succesive  128  byte  data  blocks  until 
end  of  file  is  reached .  After  each  data  block,  the  sender 
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indicates 

to 

the  receiver 

whether  or  not  end 

of  file 

has 

occurred 

and 

stops  until 

the  receiver  tells 

the  sender 

t  0 

continue.  Once  the  file  is  sent,  it  is  closed  end  the  user 
is  returned  to  the  main  menu. 

To  receive  a  file,  the  user  is  prompted  as  above  for 
drive,  file  name,  and  file  type.  Upon  confirmation,  the  file 
named  ty  the  user  is  first  deleted  and  then  created.  This  is 
done  to  ensure  nc  errors  occur  during  the  create  operation 
and  has  the  effect  of  overwriting  the  file  if  the  user 
chooses  a  file  already  on  the  disk.  After  creating  the  file, 
reception  begins. 

The  file  is  received  in  128  byte  data  blocks  and  after 
each  block  is  written  to  disk,  end  of  file  is  checked  and  the 
sender  is  told  to  continue.  Once  the  file  is  received,  it  is 
closed  and  the  user  is  informed  of  the  number  of  bytes 
received.  Error  messages  are  displayed  if  there  is  no  more 
disk  space  or  directory  space  on  the  receiver.  The  user  is 
then  returned  to  the  main  menu. 

To  send  a  message,  the  user  is  prompted  to  begin  typing 
and  tcld  that  the  maximum  message  length  is  1600  characters. 
All  characters  entered  except  CTRL_Z  are  sent.  The  message 
is  organized  in  a  'page'  format  of  twenty  lines  with  82 
characters  each.  A  limited  correction  capability  is 
included,  consisting  of  typing  "backspace"  or  "CTRL_E"  and 
then  retyping  the  character.  However,  the  error,  the  back¬ 
space  or  CTRL_K ,  and  the  retyped  character  all  count  as  typed 
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characters.  The  message  fornat  consists  of  twenty  lines  of 
g£  'keystrokes'  each.  Users  must  keep  this  in  mind  when 
typing . 

"CTRL_Z"  stops  message  typing  and  ”CTF.L_S"  sends  it.  Any 
other  key  allows  the  user  to  retype  the  message.  After 
”CTRL_S",  the  user  is  prompted  for  the  source  and  destination 
(or  broadcast)  terminals  as  above.  If  the  destination  is 
active,  the  message  is  transmitted  as  one  data  block  with 
appropriate  end  of  message  codes.  The  user  is  returned  to  the 
main  menu  upon  completion  of  the  transmission. 

To  receive  a  message,  the  user  types  "CTRL_L'’  from  the 
main  menu  and  reception  occurs.  The  message  is  displayed  and 
the  user  is  informed  of  end  of  message  and  the  number  of 
bytes  received.  The  user  is  then  returned  to  the  main  menu. 

To  send  a  directory,  the  user  is  prompted  for  the  disk 
drive  for  which  directory  he  wishes  to  send.  (Presumably  in 
response  to  a  request.)  After  confirmation,  the  user  is 
prompted  for  the  source  and  destination  (or  broadcast) 
terminals  as  above.  The  directory  of  the  selected  drive  is 
then  searched  for  the  CP/M-86  wild  card  file  name  and  type 
(????????.???)  causing  the  pntire  directory  to  be  matched. 
Each  directory  entry  is  placed  ir  the  transmission  data  block 
u^til  there  are  eight  directory  entries  for  a  total  of  126 
bytes.  If  the  destination  is  active  this  data  block  is  then 
transmitted  ,  preceded  by  the  disk  drive,  with  a  code  indica¬ 
ting  whether  or  not  end  of  directory  has  occurred.  If  there 
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are  no  files  on  the  selected  disk  a  ’’NO  FILES  ON  SFLEC1EP 
DISK."  string  is  transrr.it  ted  to  the  receiver.  The  user  is 
returned  to  the  main  menu  upon  completion  of  the 
transmi  ssicr. . 

To  receive  a  directory,  the  user  is  prompted  as  above  for 
drive,  file  name,  and  file  type  in  which  he  wishes  to  store 
the  incoming  directory.  Upon  c cnf i rma ti on ,  the  file  named  by 
the  user  is  first  deleted  a^d  then  created.  This  is  done  to 
ensure  no  errors  occur  during  the  create  operation  and  has 
the  effect  of  overwriting  the  file  if  the  user  chooses  a  file 
already  on  the  disk.  After  creating  the  file,  reception 
begins . 

The  drive  of  the  directory  is  received  first  and  then  the 
first  126  byte  data  block.  After  checking  for  end  of 
directory,  the  eignt  directory  entries  of  the  data  block  are 
displayed  and  the  user  is  asked  if  he  wishes  to  save  them  on 
file.  Each  data  block  is  received  the  same  way.  Those  data 
blocks  the  user  wishes  to  save  are  written  to  disk  and  the 
rest  are  discarded.  Error  messages  are  displayed  if  there  is 
no  more  disk  space  or  directory  space  on  the  receiver,  k hen 
end  of  directory  is  reached  the  reception  is  ceased,  the  file 
closed,  and  the  user  returned  to  the  main  menu.  The  file 
created  during  this  operation  should  be  edited  by  the  user 
as  it  may  contain  characters  from  each  directory  entry  that 
are  not  printable. 
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To  cttain  a  currert  net  status  cf  the  active  terminals  in 
the  network,  the  user  is  prompted  for  the  source  and  desti¬ 
nation  terminals  as  atove  with  the  exception  that  he  must 
enter  his  terminal  for  loth  source  and  destination.  Upon 
confirmation ,  a  list  by  number  cf  all  active  terminals  is 
displayed  and  the  user  is  returned  to  the  main  menu. 

Messages  are  sent  the  bulletin  board,  if  it  is  active,  ty 
selecting  machine  #24  when  prompted.  The  bulletin  board  is 
'read'  by  selecting  CTRL_B  at  the  main  menu.  If  the  bulletin 
board  is  active,  all  the  current  messages  are  transmitted,  in 
128  byte  blocks,  and  stored  in  a  user  specified  file,  chosen 
in  the  same  manner  as  the  receiving  of  file  transfers.  This 
file  can  then  be  perused  at  leisure.  The  bulletin  board  can 
hold  up  to  twenty  messages  of  1600  bytes  each.  The  twenty- 
first  message  replaces  the  first  message  and  so  on. 
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VII.  CONCLUSIONS 


The  research  objectives  of  this  thesis;  coding  in 
JANUS/Ada,  allowing  single  or  multiple  transfers  of  files, 
messages,  and  directories,  and  sharing  of  local  resources  in 
a  laboratory  environment,  were  satisfactorily  completed. 
However,  the  complete  testing  and  demonstration  of  the  net¬ 
work  in  operation  was  not  achieved. 

The  utilities  resident  in  the  Z-100  workstations  were 
completely  and  satisfactorily  tested.  So  too  were  the  estab¬ 
lishment  of  data  communications  connections  and  data  transfer 
through  the  concentrator  of  files,  messages,  and  directorys 
from  a  single  Z-100  to  another  single  Z-100  and  to  multiple 
(two)  Z-100S.  The  polling  mechanism  in  the  concentrator, 
obtaining  net  status,  and  the  storing  of  messages  in  and 
retrieval  from  the  bulletin  board  were  also  satisfactorily 
tested . 

Remaining  to  be  tested  are:  the  mechanism  for  the  storing 
of  processes  for  which  a  connection  could  not  be  established 
and  the  mechanism  for  placing  and  servicing  the  waiting 
processes  in  the  queue.  Finally,  the  testing  of  the  entire 
system  of  23  Z-100  workstations  and  one  Bulletin  board  under 
all  conditions  and  loads  awaits  demonstration. 

In  sum,  each  module  and  subroutine  was  separately 
compiled  and  tested,  functional  integration  of  parts  of  the 
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system  were  tested  and  satisfactorily  demonstrated,  but  the 
complete  integration  of  the  entire  network  was  not 
accomplished . 

To  achieve  final  system  integration  and  completion  of  the 
network,  it  is  recommended  that  a  two  step  testing  process  be 
conducted.  First,  set  up,  under  laboratory  conditions,  a 
small  network  consisting  cf  seven  Z-100  workstations  and  a 
bulletin  beard  using  one  full  8530  expansion  board.  In  this 
set  up,  fully  test  the  package  'Poll'  in  various  experimental 
situations  to  ensure  that  it  handles  all  circumstances  as 
designed  ard  that  the  queue  operations  function  properly. 
Second,  establish  the  full  network  and  test  it  in  an 
operational  environment  under  all  conditions  of  load  and 
function. 

The  experience  of  coding  this  thesis  was  very  challenging 
and  stimulating.  Despite  my  very  limited  programming  back¬ 
ground  in  Pascal,  I  was  able  to  quickly  grasp  the  funda¬ 
mentals  of  Janus/Ada  and  begin  coding  small  test  procedures. 
As  the  requirements  for  the  project  became  clearer,  coding 
intensified  ard  increased  in  size  and  scope. 

However,  I  found  myself  habitually  using  Pascal  or 
Pascal-like  structures.  I  was  tapping  very  little  of  the 
power  and  richness  of  Janus/Ada.  For  instance,  I  would  use 
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IF  condition  THEN 

exit; 
ene  if; 

rather  than 

FXIT  WHEN  rondition? 

tc  exit  loops.  Features  such  as  attributes,  subtypes, 
derived  types,  and  ranges  were  used  very  little  in  the 
beginning.  Additionally,  the  nature  of  the  project  precluded 
working  with  real  or  fixed  point  types  and  all  their  features 
plus  many  of  the  built  in  or  provided  library  subroutines. 

It  was  in  the  use  of  the  LOOP  statement  that  I  began  to 
explore  the  full  power  of  Janus/Ada  over  Pascal.  I  quickly 
learned  to  tailor  the  loop  statement  to  achieve  any  effect  I 
desi red  and  found  it  extremely  useful  in  structuring  my 
programs.  Gradually,  in  this  and  ether  structures,  I  began 
to  use  Janus/Ada  more  elegantly  and  to  remove  'Pascal  '  from 
my  coding,  although  some  always  remained. 

Surprisingly,  the  grouping  of  programs,  subroutines,  and 
data  into  packages  and  the  linking  together  of  these  packages 
into  a  single  program  proved  very  easy  to  assimilate.  The 
understanding  and  use  of  the  scope  and  visibility  rules, 
however,  was  harder  to  grasp.  As  a  result,  the  use  of 
selected  components  for  naming  variables  in  one  package  while 
in  another  package,  or  the  use  of  private  types  were  rot 
implemented . 

The  first  real  problems  occurred  in  the  use  of  input  and 
output,  usually  the  hardest  part  of  any  language.  For 


reasons  previously  explained,  assembly  language  subroutines 
interfaced  with  Jenus/Ada  programs  were  used  for  virtually 
all  input  and  output.  My  previous  assembly  language 
experience  was  with  8080  mnemonics,  but  the  use  of  6286 
mnemonics  was  easy  to  learn  because  I  was  required  to  use 
only  those  instructions  that  had  counterparts  in  6080  and  I 
only  had  to  learn  the  new  register  and  addressing  schemes. 
However,  the  interface  with  Janus/Ada  proved  extremely  diffi¬ 
cult  to  master.  It  took  much  trial  and  error  to  realize 
exactly  how  the  parameters  were  passed  and  returned  from  the 
assembly  language  subroutine  and  how  the  stack  was  manipu¬ 
lated  when  the  subroutine  was  called. 

Lastly,  the  requirements  of  data  communication  were  the 
hardest  to  implement.  The  idea  of  two  programs  executing  on 
two  different  machines  and  commun icat i ng  with  each  other  was 
entirely  new.  The  errors  that  resulted  were  difficult  to 
diagnose  and  correct.  In  my  previous  experience,  programs 
very  rarely  encountered  infinite  loops?  either  they  didn't 
work  correctly  or  they  produced  wrong  answers,  but  they 
always  finished.  In  data  communication,  infinite  loops  were 
frequent  as  the  programs  deadlocked  waiting  for  the  other  to 
stop  or  start  communicating.  The  synchronization  of  proce¬ 
dures  and  routines  in  programs  executing  in  parallel,  so  that 
procedures  that  needed  to  communicate  would  'meet'  at  the 
right  place  and  the  right  time,  was  the  most  difficult  aspect 
of  coding  this  thesis. 


44 


This  thesis  demonstrated  the  following  capati  lities  . 
First,  the  ability  of  JANUS/Ada,  and  by  extension,  ADA,  to 
effectively  ard  efficiently  perform  complex  data  communica¬ 
tion  and  network  functions.  Second,  the  viability  of 
clustering  microcomputers  for  the  sharing  of  resources  and 
the  enhancement  of  data  comunicat i ons  and  transfer.  Finally, 
the  ability  of  an  inexperienced  programmer  to  learn  ADA  and 
use  it  in  the  solving  of  complex  computer  problems. 
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APPENDIX  A 


USER'S  MANUAL 


A.  GETTING  STARTED 

The  syster  is  designed,  tc  operate  on  the  Zenith  irodel  120 
microcomputer  connected  to  the  concentrator  in  tne  NPS  micro- 
computer  lab.  The  file  Xfermain.cmd  should  be  cn  the  hard 
disk  and  the  CP/M-85  operating  system  should  be  selected. 


B.  SYSTEMS  OPERATION 

The  command  'xfermain'  will  place  the  user  in  the 
network.  The  first  message  should  be: 

'WAITING  TO  FE  POLLED. ' 

Note:  System  messages  are  always  in  uppercase. 

This  means  that  this  Z-100  is  waiting  to  be  recognized  by  the 

network.  A  wait  of  some  time  may  result  if  the  system  is 

busy.  If  the  wait  becomes  excessive,  see  the  system's  main¬ 
tenance  personnel.  When  recognized,  the  next  message  should 
be : 

'CHECKING  EOF  INCOMING  FILE  OR  MESSAGE.' 

If  there  is  an  incoming  file  or  message,  the  user  will  be 

asked  to  receive  it  prior  to  continuing  with  the  user's 

reques  t . 

After  the  incoming  data  has  been  received  or  if  there  is 
no  data,  the  following  menu  will  be  displayed: 

CTRL  S  =  SEND  FILE 
CT?.L_R  =  RECEIVE  FILE 
CTRL_T  =  SEND  MESSAGE  (TALK) 

CTRL_L  -  RECEIVE  MFSSAGE  (LISTEN) 

CTRL  P  -  SEND  DIRECTORY 
CTRL_G  =  RECEIVE  D IRFCTORY 
CTRL_W  =  GET  NET  STATUS  (WHO) 

CTRL_B  =  RECEIVE  BULLETIN  BOARD 

OTHERS  =  RECHECK  FOR  INCOMING  FILE  OR  MESSAGE 

Selecting  the  proper  entry  will  place  the  user  in  the  desired 
environment . 
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C.  SINE! I LE 


Once  in  Sendfile,  the  command  messages  are  self  explana¬ 
tory.  The  pregram  forces  the  input  of  a  CE/M-86  acceptable 
file  name  and  file  type,  tut  the  user  must  ensure  that  the 
file  exists  on  the  selected  disk.  An  error  message  will 
result  otherwise.  The  next  step  is  selecting  the  destination 
machine  (numbered  01  through  23)  or  broadcast  to  all  (number 
00).  If  the  reauested  destination  is  not  presently  in  the 
network,  the  reauest  to  send  a  file  will  be  aueued  along  with 
the  intended  destination.  Some  delay  may  occur  in  the  sending 
of  a  file  if  the  file  is  very  large  or  the  network  is  very 
busy.  Excessive  delay  should  be  referred  to  the  systems 
maintenance  personnel. 


D.  RICE  I VE! I IE 

Once  in  Receivefile,  the  command  messages  are  self  expla¬ 
natory.  The  program  prompts  for  a  file  name  and  file  type 
for  the  incoming  data.  It  forces  the  input  of  a  CF/M-66 
acceptable  file  name  and  file  type,  but  the  user  must  ensure 
that  sufficient  space  exists  for  the  file  on  the  selected 
disk.  An  error  message  will  result  otherwise.  Some  delay 
may  occur  in  the  receiving  of  a  file  if  the  file  is  very 
large  or  the  network  is  very  busy.  Excessive  delay  should  be 
referred  to  the  systems  maintenance  personnel. 


E.  TALKING 

Once  in  Talking,  the  commend  messages  are  self  explana¬ 
tory.  Message  length  is  1600  characters  organized  in  20 
lines  of  80.  Errors  can  be  corrected  using  backspace  or 
'control  h',  tut  each  keystroke  counts  towards  the  1600.  The 
next  step  is  selecting  the  destination  machine  (numbered  01 
through  23),  broadcast  to  all  (number  00),  or  bulletin  board 
(number  24).  If  the  requested  destination  is  not  presently 
in  the  network,  the  request  to  send  a  message  will  be  queued 
along  with  the  intended  destination.  Seme  delay  may  occur  in 
the  sending  of  a  message  if  the  message  is  very  large  or  the 
network  is  very  busy.  Excessive  delay  should  be  referred  to 
the  systems  maintenance  personnel. 


F.  LISTENING 

Once  in  Listening,  the  message  is  received  immediately 
and  displayed  as  typed. 
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G .  WHCS  THERE 


Once  in  Whos_ there  ,  the  user  is  prompted  to  enter  his 
machine  number  as  the  destination.  Then  the  net  status  is 
received . 


H.  RICIIVI_DIR 

Once  in  Receive_dir,  the  command  messages  are  self  expla¬ 
natory.  The  program  prompts  for  a  file  name  and  file  type 
for  the  incoming  data.  It  forces  the  input  of  a  CP/P-S6 
acceutatle  file  name  and  file  type,  tut  the  user  must  ensure 
that  sufficient  space  exists  for  the  file  cn  the  selected 
disk.  An  error  message  will  result  otherwise.  The  user  may 
save  only  those  directory  ertries  he  desires.  Some  delay- 
may  occur  in  the  receiving  of  a  directory  if  the  directory  is 
very  large  or  the  network  is  very  busy.  Excessive  delay- 
should  be  referred  to  the  systems  maintenance  personnel. 


I.  PRESENT_EIR 

Once  in  Present_dir,  the  command  messages  are  self 
explanatory.  The  user  is  prompted  to  select  the  destination 
machine  (numbered  01  through  23)  or  broadcast  to  all  (number 
00).  If  the  requested  destination  is  not  presently  in  the 
network,  the  reauest  to  send  a  directory  will  not  be  queued 
and  is  destroyed.  Some  delay  may  occur  in  the  sending  of  a 
directory  if  the  directory  is  very  large  or  the  network  is 
very  busy.  Excessive  delay  should  be  referred  to  the  systems 
maintenance  personnel. 


J.  BUILERE 

Once  in  Bullbrd,  the  c ommar.d  messages  are  self  explana- 
tory.  The  program  prompts  for  a  file  name  and  file  type  for 
the  incoming  data.  It  forces  the  input  of  a  CF/m-86 
acceptable  file  name  and  file  type,  tut  the  user  must  ensure 
that  sufficient  space  exists  for  the  file  on  the  selected 
disk.  An  error  message  will  result  otherwise.  Some  delay 
may  occur  in  the  receiving  of  messages  from  the  bulletin 
board  if  the  number  of  messages  is  very  large  or  the  network 
is  very  busy.  Excessive  delay  should  be  referred  to  the 
systems  maintenance  personnel. 
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K.  FURTHER  ACTION 


V.:hen  completing  anj  one  of  the  above  tasks,  the  user  is 
returned  to  the  main  menu  where  he  may  exit  using  'control  x' 
or  continue  for  more  tasks.  If  the  user  chooses  to  continue 
the  program  returns  to  the  tegioing,  waits  to  he  recognized 
again,  and  so  on. 


L.  YHEN  ERRORS  OCCUR 

The  system  is  designed  to  flag  most  errors  and  allow  user 
correction  without  halting  execution,  however  should  errors 
occur  which  halt  the  program  during  data  communication,  then 
the  system  will  have  to  he  reset.  Otherwise,  reseting  the 
uspr  terminal  will  allow  the  user  to  rejoin  the  network. 
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APPENDIX  F 


MAINTENANCE  MANUAL  FOR  Z-100  PROGRAMS 


A.  XFEFMAIN 

1.  CONFIGURATION 

a.  language  -  JANUS/Ade 

b.  Cctrpiler  Version  -  1.47 

c.  linker  Version  -  1.47 

d.  Target  Fardware  -  Zenith  Z-100  microcomputer 

e.  Operating  Systerr  -  CP/M-8S  (version  1.14} 

f.  Package  description: 

The  Xferrrain  package  is  the  main  program  for  the  Z-100 
work  static ns.  It  begins  by  informing  the  Concentrator  that 
this  particular  terminal  is  active  and  then  waiting  to  deter¬ 
mine  if  the  network  has  any  files  or  messages  waiting  for  it. 
Xfermain  then  presents  the  user  with  a  menu  of  selected 
options:  send/receive  files,  send/receive  me s sages, 

send/receive  directory,  and  obtain  network  status.  Control 
code  keystrokes  then  place  the  user  in  the  desired  environ¬ 
ment.  Xfermain  contains  an  infinite  loop  that  will  perform 
the  above  functions  until  the  user  terminates  the  session 
with  control  x.  Upon  termination,  Xfermain  informs  the 
Concentrator  it  is  no  longer  active. 

2.  SUBROUTINES 

a.  Contained:  None. 

b.  Called: 

Act ive 
Waiting 
Outconsole 
Key  in 
Sendfile 
Recei vef i le 
Talki ng 
listening 
khos_  there 
P.eceive_dir 
Present  dir 
Recv_bulletin 
Cl earscrn 
Off 

3.  COMMENTS 

Xfermain  is  placed  on  all  terminals  of  the  network, 
except  #24,  the  Bulletin  board,  and  is  invoked  by  typing  the 
command  ’’xfermain". 


3.  XFERFILE 

1.  CONFIGURATION 

a.  language  -  JANUS/Ada 

b.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Zenith  Z-100  microcomputer 

e.  Operating  System  -  CP/m-86  (version  1.14) 

f.  Package  description: 

The  Xferfile  package  controls  the  sending  and 
receiving  of  files  from  the  Z-100  workstations.  The  user  is 
prompted  for  the  disk  drive  and  file  name  to  send  or  receive. 
The  package  parses  and  capitalizes  the  input  into  eight 
character  filenames  and  three  character  file  types,  in  order 
to  conform  with  the  requirements  of  CP/M-86.  When  the  input 
has  teen  confirmed  Ly  the  user,  Xferfile  either  opens  an 
existing  file  or  creates  a  new  one  using  the  file  control 
blocks  (FCBs)  described  in  Chapter  IV.  Files  are  read  and 
sent  or  received  and  written  in  128  byte  blocks.  The  sending 
and  receiving  processes  coordinate  with  each  other  and 
mutually  come  to  a  halt  when  the  processes  are  finished. 
Xferfile  returns  to  Xfermain  after  each  instance  of  file 
transfer. 

2.  SUBROUTINES 

a.  Sendfile 

(1)  Type:  Procedure 

(2)  Purpose:  To  send  a  file  from  one  terminal  to 

another  terminal  or  to  all  active  terminals  in  the  network. 

(3)  Description  of  Parameters:  None 

(4)  Subroutines  Called: 

Clearscrn 
Reset_di sk 
Drive_select 
Parse_cap 
Outconsole 

Keyin 

Open  file 

Set_DMA 

Enter_machine 

Set_up 

Read_seq 

Yes 

No 

Send_block 
Close_f ile 

(5)  Process  Description: 

Sendfile  controls  the  sending  of  data  from  a  file 
to  the  receiving  terminal(s).  The  user  specifies  the  disk, 
the  file  name,  and  the  file  type  and  Send_file  creates  a  file 
control  block  (ECB)  Then  the  user  specifies  the  destination 
terminal ( s )  and  a  connection  is  established.  The  file  speci¬ 
fied  by  the  FCB  is  opened  by  utilyzing  CP/b'-86  function  call 
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#15  and  data  is  read  frorr  the  file  into  a  data  structure 
located  at  the  specified  direct  rremory  address  (DMA)  in 
sequential  128  byte  records  by  utilizing  CP/M-86  function 
call  #20.  Sendfile  tells  the  user  if  either  an  inappropriate 
file  name  or  type  is  used,  if  the  file  specified  is  already 
open,  or  if  the  specified  file  cannot  be  found  on  the  speci¬ 
fied  dish.  If  the  receiver  is  active,  the  data  structure 
containing  the  128  byte  record  is  then  transmitted.  Sendfile 
checks  after  each  sequential  read  to  determine  if  end  of  file 
has  been  reached  and  sends  a  yes  or  a  no  code  accordingly. 
After  the  transmission  has  been  completed,  the  file  is 
closed . 


b.  Receivefile 

(1)  Type:  Procedure 

(2)  Purpose:  To  receive  and  store  a  file  from  a 

sending  terminal. 

(3)  Description  of  Parameters:  None 

(4)  Subroutines  Called: 

C  learscrn 
Reset_disk 

Dri ve_select 
Parse”cap 
Outconsole 
Keyin 

Delete_f ile 
C  reate’f ile 
Set  DMA 
Indfile 
Wri te_seq 
Recv  block 
Close_file 
Put  str 
Put'int 

(5)  Process  Description: 

Receivefile  controls  the  reception  of  file  data 
from  a  sending  terminal.  The  user  specifies  the  disk,  the 
file  name,  and  the  file  type  to  store  the  data  and  a  file 
control  block  (FCB)  is  created.  The  file  specified  by  the  FCB 
is  first  deleted  using  CP/M-86  function  call  #19  to  ensure  no 
duplication  occurs  and  then  created  by  utilyzing  function 
call  #22.  128  bytes  of  data  is  received  and  stored  in  a  data 

structure  located  at  the  specified  direct  memory  address 
(DMA).  The  data  is  written  to  the  file  using  function  call 
#21  and  the  the  sender  is  told  to  send  the  next  128  bytes  of 
data.  Receivefile  checks  after  each  block  of  data  is  received 
to  determine  if  end  of  file  has  occurred.  Receivefile  tells 
the  user  if  either  an  inappropriate  file  name  or  type  is 
used,  if  directory  space  is  unavailable  for  the  initial 
filename,  if  directory  space  is  unavailable  for  new  extents 
of  an  existing  entry,  or  if  disk  space  is  full.  After  the 
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reception  has  teen  completed,  the  file  is  closed  and  the 
number  of  tytes  received  is  displayed. 

c.  Parse_cap 

(1)  Type:  Procedure 

(2)  Purpose:  To  parse  the  file  name  and  file  type 

for  invalid  characters  and  to  capitalize  both  to  conform  to 
CF/M-86  protocol. 

(?)  Description  of  Parameters:  A  value  of  type 

fct  indicating  the  FCB  data  structure  is  one  output 
parameter.  A  value  of  type  Integer  indicating  the  file  name 
length  is  the  other  output  parameter. 

(4)  Subroutines  Called: 

Outconsole 

leyi  n 

(5)  Process  Description: 

Parse_cap  controls  the  creation  of  the  user  speci¬ 
fied  file  name  and  file  type.  The  user's  input  is  accepted 
and  displayed.  Invalid  characters  are  flagged  and  the  input 
minus  the  invalid  character  is  redisplayed  for  continued 
input.  Parse_cap  then  capitalizes  the  input  and  stores  it  in 
the  appropriate  fields  of  FCB. 


C.  MESSAGES 

1.  CONFIGURATION 

a.  Language  -  JANUS/Ada 

b.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Zenith  Z-100  microcomputer 

e.  Operating  System  -  CP/M-86  (version  1.14) 

f.  Fackage  description: 

The  Messages  package  controls  the  sending  and 
receiving  of  messages  from  the  Z-100  workstations.  A  maximum 
message  size  of  1600  keystrokes  (including  error  correction) 
organized  in  20  lines  of  80  each  is  implemented.  The  user 
types  control  z  to  end  the  message  and  control  s  to  send  it. 
If  the  user  desires  to  retype  the  message  entering  any  char¬ 
acter  other  than  control  s  will  erase  the  first  message. 
After  input  is  confirmed,  the  message  is  transmitted  and 
received  as  a  single  block  of  data.  The  sending  and  receiving 
processes  coordinate  with  each  other  and  mutually  come  to  a 
halt  when  the  processes  are  finished.  Messages  returns  to 
Xfermair.  after  each  instance  of  message  transfer. 

2.  SUBROUTINES 

a.  Talking 

(1)  Type:  Procedure 

(2)  Purpose:  To  send  a  message  to  one  or  all  of 

the  terminals  currently  in  the  network. 

(3)  Description  of  Parameters:  None 
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(4)  Subroutines  Called: 

Cl  ear sc  rn 

Ou  tr ons  ole 
Keyi  r. 

mter_mackine 

Setup 

Send  _bl ock 
X  es 

(5)  Process  Description: 

Talking  controls  the  transmission  of  message  data 
to  receiving  terminal(s).  The  user  is  prompted  to  begin 
typing  the  message  which  is  displayed  simultaneously  exactly 
as  typed.  Talking  then  prompts  the  user  for  the  destination 
terminal(s)  and,  after  establishing  connection  with  the  re¬ 
ceivers),  transmits  the  message  as  a  single  block  of  data. 
Messages  sent  to  destination  terminal  #24  are  routed  to  the 
bulletin  board.  Talking  indicates  e^d  of  message  by  transmit¬ 
ting  a  sequence  of  four  end  of  message  codes. 

b.  listening 

(1)  Type:  Procedure 

(2)  Purpose:  To  receive  a  message  from  a  sending 

terminal . 

(3)  Description  of  Parameters:  None 

(4)  Subroutines  Called: 

Clearscrn 

Outc  onsole 
Key  in 
Endmsg 
Recv_bl ock 
Put_int 

(5)  Frocess  Description: 

listening  controls  the  reception  of  message  data 
from  a  sending  terminal.  The  message  is  received  as  a  single 
block  of  data  and  terminated  when  a  sequence  of  four  end  of 
message  codes  is  received.  The  message  is  then  displayed 
exactly  as  the  sender  typed  it  along  with  the  number  of 
bytes  received . 


D.  BIRECTRY 

1.  CONFIGURATION 

a.  language  -  JANUS/Ada 

b.  Compiler  Version  -  1.47 

c.  linker  Version  -  1.47 

d.  Target  Hardware  -  Zenith  Z-100  microcomputer 

e.  Operating  System  -  CP/M-86  (version  1.14) 

f.  Package  description: 

The  Direct ry  package  controls  the  sending  and  recei¬ 
ving  of  directory  information  from  the  Z-100  workstations.  A 
FC3  is  created  with  auestion  marks  (?)  in  each  character  of 
the  file  name  and  type.  This  serves  es  a  wild  card  and  en- 


54 


sures  that  the  entire  directory  will  he  sent.  Directory 
entries  are  se*t  cr  received  in  128  tyte  blocks.  The  sending 
and  receiving  processes  coordinate  with  each  other  and 
mutually  come  to  a  halt  when  the  processes  are  finished. 
Directry  returns  to  Xfermain  after  each  instance  of  directory 
trar  sf  er . 

2.  SU3R0UTINIS 
a.  Present_dir 

(1)  Type:  Procedure 

(2)  Purpose:  To  send  a  directory  from  one  terminal 
to  another  terminal  or  to  all  active  terminals  in  the  network. 

(3)  Description  of  Parameters:  None 

(4)  Subroutines  Called: 

Clearscrn 
Reset_di sk 
Drive_select 
Outccnsole 

Keyi  n 

?nter_machine 

Set_up 

Se  t_EMA 

Drivecut 

Search_f ir st 

Ser.d_  s  t  ring 

Send'dir 

Search_next 

Pnd_bl ock 

Yes 

No 

Put_str 

(5)  Process  Descripti 0" : 

Present_dir  controls  sending  of  data  from  a  direc¬ 
tory  to  the  receiving  terminal(s).  The  user  specifies  the 
disk  and  a  file  control  block  (FCB)  is  created  with  the 
wildcard  filename  and  type  (????????.???).  Then  the  user 
specifies  destination  terminal(s)  and,  if  they  are  active,  a 
connection  is  established.  The  directory  is  searched  for 
the  first  match  to  the  FCB  by  utilyzing  CP/M-86  function  call 

#1?  and  the  directory  information  is  placed  into  a  data 

structure  located  at  the  specified  direct  memory  address 
(DMA)  in  126  tyte  records.  An  offset  is  computed  to  the 
unique  match  within  this  record.  Present_dir  transmits  the  16 
tyte  match  to  the  receiving  terminal(s).  Function  call  416 
is  used  to  obtain  all  subsequent  matches.  Fresent_dir 

transmits  a  total  of  eight  16  byte  segments  before  transmit¬ 

ting  the  end  of  block  code,  sc  the  receiving  terminal(s) 
receive  a  full,  contiguous  128  tyte  block.  Additionally, 
Present_dir  indicates  end  of  directory  by  sending  yes  or  no 
codes  with  each  126  bytes.  The  user  is  told  if  there  are  no 
files  on  a  selected  disk  and  a  message  stating  such  is  sent 
to  the  receiving  terminal(s). 


DO 


b .  Receive_dir 

(1)  Type:  Procedure 

(2)  Purpose:  To  receive  and  store  in  a  file  the 

directory  frorr  a  sending  terminal. 

(3)  Description  of  Parameters:  None 

(4)  Subroutines  Called: 

Clearscrn 
Eeset_di sk 

D  ri ve_  se le  c  t 
Farse_cap 
Outconsole 
Key  in 

Delete_f ile 
Create  file 
Set  _IMA 
Indf ile 
V,  rite_seq 
Recv_bl ock 
D  r  i  v  e  i  n 
Cl ose_f i le 

(5)  Process  Description: 

Receive_dir  controls  the  reception  of  directory 
data  from  a  sending  terminal.  The  user  specifies  the  disk, 
the  file  name,  and  the  file  type  to  store  the  data  and  a  file 
control  block  (FC3)  is  created.  The  file  specified  by  the  FCS 
is  first  deleted  using  CP/M-8S  function  call  #19  to  ensure  no 
duplication  occurs  and  then  created  by  utilyzing  function 
call  #22.  128  bytes  of  data  is  received  and  stored  in  a  data 

structure  located  at  the  specified  direct  memory  address 
(DMA).  lach  128  bytes  of  directory  data  is  displayed  and  the 
user  is  given  the  option  of  storing  the  information  in  the 
file  created.  The  data  is  written  to  the  file  using  function 
call  #21  and  the  the  sender  is  told  to  transmit  the  next  128 
bytes  of  data.  Receive_dir  checks  after  each  block  of  data  is 
received  to  determine  if  end  of  directory  has  occurred. 
Receive_dir  tells  the  user  if  either  an  inappropriate  file 
name  or  type  is  used,  if  directory  space  is  unavailable  for 
the  initial  filename,  if  directory  space  is  unavailable  for 
new  extents  of  an  existing  entry,  or  if  disk  space  is  full. 
After  directory  reception  has  been  completed,  the  file  is 
closed  . 


1.  CONFIGURATION 

a.  language  -  JANUS/Ada 

b.  Compiler  Version  -  1.47 

c.  linker  Version  -  1.47 

d.  Target  Hardware  -  Zenith  Z-100  microcomputer 

e.  Operating  System  -  CP./M-86  (version  1.14) 
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f.  Package  description: 

The  '* ho  package  controls  the  inauiry  for  and  reception 
of  net  status »  which  machines  are  currently  active  in  the 
network . 

2.  SUBROUTINES 
a.  khos_there 

(1)  Type:  Procedure 

(2)  Furpose:  To  request  and  receive  net  status 
informa  ti on . 

(3)  Description  of  Parameters:  None 

(4)  Subroutines  Called: 

Clearscm 
?.ecv_hl  ock 

Enter _machine 
Setup 
P  u  t  _  i  n  t 

(3)  Process  Description: 

l*hos_there  prompts  the  user  to  enter  his  terminal 
number  for  both  the  source  and  destination  terminals.  After  a 
connection  has  teen  established,  the  net  status  information 
frcm  the  Concentrator  is  received  end  displayed. 


G.  PULIrRD 

1.  CONFIGURATION 

a.  Language  -  JANUS /Ada 

t.  Compiler  Version  -  1.47 

c.  Lirker  Version  -  1.47 

d .  Target  Hardware  -  Zenith  Z-10C  microcomputer 

e.  Operating  System  -  CF/M-86  (version  1.14} 

f.  Package  description: 

The  Pulltrd  package  controls  the  inquiry  for  receiving 
the  current  messages  from  the  bulletin  board  and  storing 
them  on  file. 

2.  SUBROUTINES 

a.  Recv_tul le tin 

(1)  Type:  Procedure 

(2)  Furpose:  To  receive  bulletin  board  information. 

(3)  Description  of  Parameters:  None. 

(4)  Subroutines  Called: 

Clearscm 

Enter_machine 

Setup 

Receive file 
Keyi  n 

(5)  Process  Descrirtion: 

Recv_bulletin  prompts  the  user  to  enter  *24  for  the 
destination  terminal.  Then,  if  the  bulletin  board  (ter¬ 
minal  #24 )  is  active,  Re cv _ bull eti n  establishes  a  connection. 
It  calls  Receivefile  which  handles  the  actual  file  transfer 
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of  the  data  frorr  the  bulletin  board  and  stores  it  in  a  user 
specified  file.  Frror  messages  are  displayed  if  either  an 
inappropriate  file  name  or  type  is  used,  if  directory  space 
is  unavailable  for  the  initial  filename,  if  directory  space 
is  unavailable  for  new  extents  of  an  existing  entry,  or  if 
disk  space  is  full.  After  reception  of  the  bulletin  board 
data  has  been  completed,  the  file  is  closed. 


H.  BULLETIN 

1.  CONFIGURATION 

a.  Language  -  JANUS/Ada 

b.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Zenith  Z-100  microcomputer 

e.  Operating  System  -  CP/M-86  (version  1.14) 

f.  Package  description: 

Bulletin  is  the  package  that  implements  the  network 
bulletin  board.  It  controls  the  reception  of  individual 
messages  destined  for  the  bulletin  board  and  the  transmission 
in  123  byte  blocks  suitable  for  file  transfer  of  all  current 
messages  at  a  given  time.  Messages  are  received  in  a  single 
block.  The  bulletin  board  has  the  capacity  of  twenty  mes¬ 
sages  of  1600  bytes  each.  When  the  capacity  is  exceeded,  the 
first  one  in  is  the  first  one  out.  Messages  are  stored  as  an 
array  of  records  with  fields  for  the  message  and  its  length. 

2.  SUBROUTINES 

a.  Contained:  None. 

b.  Called: 

Clearscrn 

Ac  t ive 

Waiting 

Recv_block 

Endmsg 

Send_bl ock 

No 

Yes 

3.  COMMENTS 

The  network  bulletin  board  is  'hard  wired'  into<t  port 
#24.  It  is  invoked  by  typing  the  command  "bulletin".  A 
message  is  displayed  stating  that  this  terminal  is  the  net¬ 
work  bulletin  beard.  The  program  loops  endlessly  waiting  for 
requests  to  receive  messages  or  send  current  message 
inventory.  If  another  terminal  at  another  port  is  desired  to 
be  the  network  bulletin  board,  the  package  Poll  must  be 
changed  to  reflect  the  new  port,  (see  Appendix  C.)  There  can 
be  only  one  bulletin  board  active  at  a  time. 
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I.  MTUTIL 

1.  CONFIGURATION 

a.  language  -  JANUS /Ada 

b.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

4.  Target  Hardware  -  Zenith  Z-100  microcomputer 

e.  Operating  System  -  CF/N’-9£  (version  1.14) 

f.  Package  description: 

The  Kyutil  package  contains  various  utility  prograns 
in  JANUS /Ada. 

2.  SUBROUT  I  MIS 

a.  Fut_irt 

(1 )  Type  :  Procedure 

(2)  Furpose:  To  display  integers. 

(3)  Description  of  Parameters:  A  value  of  type 
integer  to  he  displayed  is  the  input  parameter. 

(4)  Sutrcutir.es  Called: 

Ky_put 

(5)  Process  Description: 

?ut_int  takes  the  input  parameter  and  determines 
its  sign.  Then  Put_int  strips  off  each  digit,  starting  from 
the  left  and  removing  leading  zeros,  and  displays  it. 

t.  Clearscrn 

(1)  Type:  Procedure 

(2)  Purpose:  To  clear  the  display  screen 

(3)  Description  cf  Parameters:  None. 

(4)  Subroutines  Called: 

Out  c  on  s  ole 

(5)  Process  Description: 

Clearscrn  outputs  the  CP/M-83  clear  screen  codes. 

c  .  En t er_machi re 

(1)  Type:  Procedure 

(2)  Furpose:  To  get  the  user's  input  of  source 
and  destination  machines. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  indicating  the  source  and  destination  machines  are 
the  output  parameters. 

(4)  Subroutines  Called: 

Outc  ons  ole 

Key  in 

(5)  Frocess  Description: 

Ent er _machine  prompts  the  user  for  input  and  then 
displays  it  for  confirmation.  The  keyboard  input  is  converted 
to  Integer  values  which  are  assigned  to  the  output 

paramet  ers . 
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d.  Drive_select 

(1)  Type:  Procedure 

(2)  Purpose:  To  get  the  user's  selection  of  disk 

drive . 

(3)  Description  of  Parameters:  A  value  of  type 
byte  indicating  the  disk  drive  selection  is  the  output 
parameter . 

(4)  Subroutines  Called: 

Ou  tc  cnsole 

Key  in 

Selec  t_dri ve 

(5)  Process  Description: 

Drive_select  prompts  the  user  for  input  and  then 
displays  it  for  confirmation.  Lower  case  and  upper  case 
inputs  are  treated  the  same.  The  appropriate  parameter  is 
then  passed  to  the  CP/f^-86  function  call  #14,  which  selects 
the  drive.  The  drive  selection  is  then  returned  as  an  output 
parameter . 

H.  MYASMLIB 

1.  CONFIGURATION 

a.  Language  -  JANUS/Assemtler 
t.  Compiler  Version  -  1.50 

c.  Linker  Version  -  1.50 

d.  Target  Hardware  -  Zenith  Z-100  microcomputer 

e.  Operating  System  -  CP/M-86  (version  1.14) 

f.  Package  description: 

The  Myasmlib  package  contains  the  library  of  assembly 
language  subroutines  for  the  Z-100  workstations. 

2.  COMMNTS 

a.  JANUS/Ada  parameters  for  JANUS/Assembler  modules 
are  placed  on  the  stack  at  subroutine  call  with  the  last 
parameter  closest  to  the  top  and  the  return  address  on  the 
very  top.  Discrete  values  are  passed  for  parameters  of  type 
IN  and  the  address  of  the  parameter  is  passed  for  types  OUT 
and  IN  OUT.  Upon  return  to  the  calling  program  OUT  and  IN  OUT 
parameters  are  removed  from  the  stack  along  with  the  return 
address . 

b.  The  following  subroutines  involve  input  and  output 
to  other  terminals  via  the  modem  port  ( J 2 ) : 

Send_block 

Tes 

No 

Recv_block 

Endf ile 

Active 

Waiting 

Setup 

Fndmsg 

End  block 
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Send_string 
Send_dir 
Eriveout 
Dr ivei n 
Off 

The  rrethod  cf  transrriss ion  used  involves  an  immediate 
echo  checking  procedure.  The  sending  subroutine  transmits 
tytes  of  data  one  at  a  time.  The  receiving  subroutine  re¬ 
ceives  the  data  bytes  and  echos  each  one  immediately  upon 
reception.  The  sending  subroutine  compares  the  echo  with  the 
transmitted  data  and  checks  for  error.  If  an  error  is  detec¬ 
ted,  the  sending  subroutine  either  simply  retransmits  or 
sends  an  error  code  to  tell  the  receiving  subroutine  that  the 
data  previously  received  (and  processed)  was  in  error,  fol¬ 
lowed  by  the  retransmitted  data.  All  receiving  subroutines 
contain  a  finite  waiting  time  after  the  last  data  was  re¬ 
ceived  to  ensure  that  the  final  echo  was  received  properly. 

3.  SUBROUTINES 

a.  Create_file 

(1)  Type:  Procedure 

(2)  Purpose:  To  create  files  specified  by  the  PCB. 

(3)  Eescription  of  Parameters:  A  value  of  type 
Integer  containing  the  PCB  address  is  the  input  parameter.  A 
value  of  type  Integer  indicating  the  result  of  the  CP/M-86 
function  call  is  the  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Create_file  implements  the  CP/M-86  function  call 
#22.  It  creates  (and  opens)  the  file  specified  by  the  FCB .  It 
returns  a  0,  1,  2,  or  3  if  the  operation  was  successful  and 

255  (PFFh)  if  no  more  directory  space  is  available. 

b.  Close  file 

(1)  Type:  Procedure 

(2)  Purpose:  To  close  files  specified  by  the  FCB. 

(3)  Eescription  of  Parameters:  A  value  of  type 
Integer  containing  the  FCB  address  is  the  input  parameter.  A 
value  of  type  Integer  indicating  the  result  of  the  CP/M-86 
function  call  is  the  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Close  file  implements  the  CP/M-86  function  call 
#16.  It  closes  the  file  specified  by  the  FCB.  It  returns  a  0, 
1,  2,  or  3  if  the  operation  was  successful  and  255  (0FFh)  if 

the  file  could  not  be  found. 
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c.  Oper_file 

(1)  Type:  Procedure 

(2)  Purpose:  To  open  files  specified  by  the  FCB. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  containing  the  FCB  address  is  the  input  parameter.  A 
value  of  type  Integer  indicating  the  result  of  the  CP/P-86 
function  call  is  the  output  Darameter. 

(4)  Sutroutines  Called:  N/A. 

(5)  Process  Description: 

Cpen_file  implements  the  CP/P-S6  function  call  #15. 
It  opens  the  file  specified  by  the  FCB.  It  returns  a  3,  1,  2, 
or  3  if  the  operation  was  successful  and  255  (ZFFh)  if  the 
file  could  not  be  found. 

d.  Read_seq 

(1|  Type:  Procedure 

(2)  Purpose:  To  read  data  from  an  open  file  speci¬ 
fied  by  the  FC3 . 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  containing  the  FCB  address  is  the  input  parameter.  A 
value  of  type  Integer  indicating  the  result  of  the  CP/M-S6 
function  call  is  the  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Read_seq  implements  the  CP/P-86  function  call  #23. 
It  reads  sequential  128  byte  records  from  an  open  file  speci¬ 
fied  by  the  FCB  into  memory  at  the  current  DMA.  It  returns  a 
3  if  the  operation  was  successful  and  a  1  if  r.c  data  exists 
at  the  next  record  position.  Normally  this  indicates  end  of 
file  . 


e .  Vr i t e_seq 

(1)  Type:  Procedure 

(2)  Purpose:  To  write  data  to  an  open  file  speci¬ 
fied  by  the  FCB. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  containing  the  FCB  address  is  the  input  parameter.  A 
value  of  type  Integer  indicating  the  result  of  the  CP/M-86 
function  call  is  the  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Frccess  Description: 

Write_seq  implements  the  CP/P-86  function  call  #21. 
It  writes  sequential  128  byte  records  to  an  open  file 
specified  by  the  FCB  from,  memory  at  the  current  DMA.  It 
returns  a  0  if  the  operation  was  successful  and  a  1  if  there 
is  no  more  space  in  the  directory  for  a  new  extent  entry 
required  when  the  file  is  larger  than  16K  (or  a  multiple  of 
16K),  or  a  2  if  there  is  no  mere  space  on  the  disk  for  new 
data  records. 
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f.  3e  t_DNA 

(1)  Type:  Procedure 

(2)  Purpose:  To  specify  the  Direct  Nenory  Address 

f DMA ) . 

(2)  Description  of  Parameters:  A  value  of  type 
Integer  containing  the  DPA  address  is  th®  input  parameter. 

(4)  Sutroutines  Called:  N/A. 

(5)  Process  Description: 

3et_DIv,A  implements  the  CP/M-86  function  call  #26. 
It  sets  the  DPA  to  the  value  of  the  input  parameter,  which  is 
"crmally  the  address  cf  a  specific  data  structure. 

g .  Del et  e_f i 1 e 

(1)  Type:  Procedure 

(2)  Furpose:  To  delete  a  file  specified  ty  the 

FC?  . 

(3)  Description  cf  Parameters:  A  value  of  type 
Integer  containing  the  FC3  address  is  the  input  parameter.  A 
value  of  type  Integer  indicating  the  result  of  the  CP/M-56 
function  call  is  the  output  parameter. 

(4)  S u hr cu tines  Called:  N/A. 

(5)  Process  Description: 

Delete_file  implements  the  CP/M-S6  function  call 
#13.  It  deletes  the  file  specified  ty  the  FC3.  It  returns  a 
0  if  the  operation  was  successful  and  255  (0FFh)  if  the  file 
could  not  he  found . 

h.  Select_disk 

(1)  Type:  Procedure 

(2)  Purpose:  To  select  a  specified  disk  drive. 

(3)  Description  of  Parameters:  A  value  of  type 

Integer  containing  the  selected  disk  drive  is  the  input 
parameter .  1 

(4)  Sutroutines  Called:  N/A. 

(5)  Process  Description: 

Select_disk  implements  the  CP/M-8S  function  call 
#14.  It  designates  the  selected  disk  (0  =  A,  1  =  B,  etc.)  as 
the  default  drive  for  subsequent  disk  operations. 

i.  Reset  disk 

(1)  Type:  Procedure 

(2)  Purpose:  To  reset  all  disk  drivp  systems. 

(3)  Description  of  Parameters:  None. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Reset_disk  implements  the  CP/M-86  function  call 
#12.  It  restores  the  file  system  to  reset  state  where  all 
drives  are  set  to  read/write  and  A  is  the  default  drive  for 
subsequent  disk  operations. 


J.  Keyin 

(1)  Type:  Procedure 

(2)  Furpose:  To  obtain  input  from  the  keyboard. 

(3)  Description  of  Parameters:  A  value  of  type 

Byte  obtained  from  the  keyboard  is  the  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Keyin  implements  the  CP/M-86  function  call  #06.  It 
locps  infinitely  until  a  key  is  pressed  and  then  the 
character  obtained  is  returned  as  the  output  parameter. 

k.  Outconsole 

(1)  Type:  Procedure 

(2)  Purpose:  To  display  output  to  the  console  de¬ 
vice  . 

(3)  Description  of  Parameters:  A  value  of  type  Byte 
to  be  displayed  is  the  input  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Outconsole  implements  the  CP/P-SS  function  call 

#02. 

l.  Send_block 

(1)  Type:  Procedure 

(2)  Purpose:  To  send  a  block  of  data  to  another 

terminal  via  the  modem  port. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  indicating  the  address  of  the  data  structure  to  be 
sent  is  one  input  parameter.  A  value  of  the  type  Integer 
indicating  the  size  of  the  data  structure  is  the  other  input 
parameter  . 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Send_block  sends  a  block  of  data  out  the  modem  port 
(J2)  sequentially  one  byte  at  a  time,  decrementing  the  size 
of  the  data  block  until  it  equals  zero.  Then  it  transmits  a 
sequence  of  four  end  of  block  codes  (0FFh)  to  indicate  that 
end  of  block  has  been  reached.  Any  data  structure  may  be 
sent  using  this  procedure. 

m.  Yes 

(1)  Type:  Procedure 

(2)  Purpose:  To  indicate  to  the  receiving 

terminal(s)  that  an  end  of  process  has  been  reached. 

(3)  Description  of  Parameters:  None. 

(4)  Subroutines  Called:  N/A. 

(£)  Process  Description: 

Yes  sends  out  a  sequence  of  four  end  of  process 
codes  (0Flh'  when  a  particular  process  is  finished. 
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n.  No 

(1)  Type:  Procedure 

(2)  Purpose:  To  indicate  to  the  receiving  termi¬ 
nal's)  that  a  process  is  still  ongoing. 

(3)  Description  of  Parameters:  None. 

(4)  Sub routines  Called:  N/A. 

(5)  Process  Description: 

No  sends  out  a  single  no  code  (6Eh)  to  indicate 
that  a  process  is  not  finished. 

o.  Recv_block 

(1)  Type:  Procedure 

(2)  Purpose:  To  receive  a  block  of  data  from 
another  machine  via  the  modem  port. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  indicating  the  address  of  the  data  structure  in  which 
the  received  data  will  he  stored  is  the  input  parameter.  A 
value  of  the  type  Integer  indicating  the  amount  of  data 
received  is  the  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(?)  Process  Description: 

Recv_tlock  receives  a  block  of  data  from  the  modem 
port  (J2)  sequentially  one  byte  at  a  time,  incrementing  the 
size  of  the  data  block  until  a  sequence  of  four  end  of  block 
codes  (0FIh)  is  received  indicating  that  end  of  block  has 
teen  reached.  Any  data  structure  may  be  received  using  this 
procedure . 


p.  Zndfile 

(1)  Type:  Procedure 

(2)  Purpose:  To  determine  whether  or  not  a  file  or 
directory  transfer  process  has  finished 

(3)  Description  of  Parameters:  A  value  of  the  type 
Boolean  indicating  finish  or  not  is  the  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Indfile  waits  to  receive  either  a  single  no  code  (€Eh) 
or  a  sequence  of  four  end  of  process  codes  (0Flh).  If  a  no  code 
is  received  the  value  false  is  returned  to  the  output  paramemter, 
if  a  sequence  of  four  end  of  process  codes  is  received  a  value  of 
true  is  returned. 

q.  Active 

(1)  Type:  Procedure 

(2)  Purpose:  To  indicate  to  the  Concentrator  that 
a  particular  terminal  is  in  the  network. 

(3)  Description  of  Parameters:  None. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Active  sends  out  an  active  code  (0D0h)  when  the 
terminal  is  ready  to  communicate  with  the  network. 
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r.  Waiting 

(1)  Type:  Procedure 

(2)  Purpose:  To  receive  the  status  the  Concentrator 
has  for  an  active  terminal. 

(3)  Description  of  Parameters:  A  value  of  type 

byte  indicating  the  status. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Waiting  receives  the  status  from  the  Concentrator 
that  a  terminal's  active  code  prompted.  A  0  indicates 
nothing  waiting,  a  1  indicates  file  waiting,  a  2  indicates 
message  waiting,  and  a  3  indicates  that  the  inactive  recei¬ 
ving  terminal  to  which  this  terminal  had  previously  tried  to 
send  is  now  active. 

s.  Setup 

(1)  Type:  Procedure 

(2)  Purpose:  To  establish  a  connection  with  anot¬ 
her  terminal  via  the  Concentrator. 

(3)  Description  of  Parameters:  A  value  of  type 

Integer  indicating  the  address  of  the  connection  data  struc¬ 
ture.  A  value  of  the  type  Boolean  indicating  the  result  of 
the  connection  set  up  attempt  is  the  output  variable. 

(4)  Subroutines  Called:  N/A. 

(5)  Frocess  Description: 

Setup  transmits  to  the  Concentrator  the  connection 
data  structure  for  the  purposes  of  establishing  a  connection 
with  another  terminal.  The  connection  data  structure  con¬ 
sists  of  destination  field  for  the  destination  terminal(s),  a 
source  field  for  the  source  terminal,  and  a  process  field  for 
the  process  to  be  accomplished.  Setup  sends  out  a  sequence 
of  four  end  of  block  codes  (0FFh)  to  indicate  the  end  of  the 
data  structure.  It  then  waits  to  determine  the  result  of  the 
connection  set  up  attempt.  If  the  connection  was  successful, 
send_ready  is  set  to  true.  If  it  was  not  because  the  desti¬ 
nation  was  inactive,  then  send_ready  is  set  to  false. 

t.  Myput 

(1)  Type:  Procedure 

(2)  Purpose:  To  display  integers. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  indicating  the  integer  to  be  displayed. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

b!yput  converts  the  integer  input  into  its  ascii 
equivalent  and  uses  CP/M-86  function  call  #02  to  display  it. 

u.  Put_str 

(1)  Type:  Procedure 

(2)  Purpose:  To  display  strings. 

(3)  Description  of  Parameters:  A  value  of  type 
String  indicating  the  address  of  the  string  to  be  displayed. 
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(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Put_str  is  passed  the  address  of  the  string  to  be 
displayed.  The  first  byte  at  that  address  is  the  string 
length.  The  succeeding  byte  are  displayed  using  CP/M-85  fun¬ 
ction  call  #02  until  the  string  length  counter  equals  zero. 

v.  Endmsg 

(1)  Type:  Procedure 

(2)  Purpose:  To  determine  if  end  of  message  has 

occurred . 

(7)  Description  of  Parameters:  None. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Endmsg  waits  until  a  sequence  of  four  end  of  mes¬ 
sage  codes  (0Flh)  is  received. 

w.  Search_first 

(1)  Type:  Procedure 

(2)  Purpose:  To  search  for  the  first  directory 

match . 

(3)  Description  of  Parameters:  A  value  of  the 

type  Integer  indicting  the  buffer  address  for  the  directory 
record  is  one  input  parameter.  A  value  of  the  type  Integer 
indicting  the  FC5  address  is  the  other  input  parameter.  A 
value  of  the  type  Integer  indicting  the  result  of  the  fun¬ 
ction  is  one  output  parameter.  A  value  of  the  type  Integer 
indicting  the  location  of  the  matched  directory  entry  is  the 
other  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Search_first  implements  CP/M-86  function  call  #17. 
It  searches  the  directory  of  the  specified  drive  for  the 
first  match  of  the  file  name  and  type  of  the  specified  FCE  . 
Vhen  a  successful  match  is  found,  Search_first  places  the  128 
byte  record  containing  the  matched  directory  entry  and 
returns  an  offset  code  (0,  1,  2,  or  3)  that  specifies  the 

exact  location  of  the  entry  within  the  record  using  the 
formula:  location  of  entry  =  (offset  *  32)  +  DMA.  If  a  match 
cannot  be  found,  then  Search_first  returns  255  (0FFh). 

x.  Search_next 

(1)  Type:  Procedure 

(2)  Purpose:  To  search  for  the  next  directory 

match . 

(3)  Description  of  Parameters:  A  value  of  the 

type  Integer  indicting  the  buffer  address  for  the  directory 
record  is  one  input  parameter.  A  value  of  the  type  Integer 
indicting  the  FCB  address  is  the  other  input  parameter.  A 
value  of  the  type  Integer  indicting  the  result  of  the  fun¬ 
ction  is  one  output  parameter.  A  value  of  the  type  Integer 
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indicting  the  location  of  the  matched  directory  entry  is  the 
other  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

3earch_next  implements  CP/M-86  function  call  #18. 
It  searches  the  directory  of  the  specified  drive  for  the  next 
match  of  the  file  name  and  type  of  the  specified  FCB.  When  a 
successful  match  is  found,  Search_first  places  the  128  hyte 
record  containing  the  matched  directory  entry  and  returns  an 
offset  code  (C,  1,  2,  or  3)  that  specifies  the  exact  location 
of  the  entry  within  the  record  using  the  formula:  location  of 
entry  =  (offset  *  32)  +  Dh'A.  If  a  match  cannot  be  found, 
then  Search_first  returns  255  (0FFh). 

y.  End_block 

(1)  Type:  Procedure 

(2)  Purpose:  To  indicate  end  of  block  during 

directory  transfer. 

(3)  Description  of  Parameters:  None. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

End_block  transmits  a  sequence  of  four  end  of  block 
codes  (0FFh)  to  indicate  end  of  block  during  directory  tran¬ 
sfers. 

z.  3end_string 

(1)  Type:  Procedure 

(2)  Purpose:  To  transmit  strings. 

(3)  Description  of  Parameters:  A  value  of  type 

String  indicating  the  address  of  the  string  to  be  output  is 
the  input  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Send_string  is  passed  the  address  of  the  string  to 
be  transmitted.  The  first  byte  of  the  input  parameter  is  the 
length  of  the  string.  Send_string  transmits  the  succeeding 
bytes  one  at  a  time  out  the  modem  port  (J2)  until  the  string 
length  counter  equals  zero. 

aa .  Send_dir 

(1)  Type:  Procedure 

(2)  Purpose:  To  transmit  matched  directory  entries. 

(3)  Description  of  Parameters:  A  value  of  type 

Integer  indicating  the  address  of  the  matched  directory  to  be 
output  is  one  input  parameter.  A  value  of  the  type  Integer 
indicating  the  size  of  the  directory  entry  to  be  transmitted 
is  the  other  input  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Send_dir  transmits  the  bytes  of  the  matched  direc¬ 
tory  entry  sequentially,  one  byte  at  a  time,  via  the  modem 
port  (J2)  until  the  directory  length  counter  equals  zero. 
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bb.  Drive  out 

(1)  Type:  Procedure 

(2)  Purpose:  To  transmit  the  disk  drive  used  in  a 
directory  transfer. 

(3)  Description  of  Parameters:  A  value  of  type 

Eyte  indicating  the  specified  drive  to  he  output  is  the  input 
parameter . 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Driveout  transmits  the  byte  representing  the  speci¬ 
fied  drive  via  the  modem  pert  (J2). 

cc .  Dri vein 

(1)  Type:  Procedure 

(2)  Purpose:  To  receive  the  disk  drive  used  in  a 
directory  transfer. 

(3)  Description  of  Parameters:  A  value  of  type 

Byte  indicating  the  specified  drive  received  is  the  output 
pa rame  ter . 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Drivein  receives  the  byte  representing  the  speci¬ 
fied  drive  via  the  modem  port  (J2). 

dd.  Off 

(1)  Type:  Procedure 

(2)  Furpose:  To  inform  the  Concentrator  that  a 

terminal  is  no  longer  active. 

(3)  Description  of  Parameters:  None. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Off  transmits  the  off  code  (0Fh)  via  the  modem 

port  (J2) . 


J.  NAMES 

1.  CONFIGURATION 

a.  language  -  JANUS/Ada 

b.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Intel  86/12A  SEC 

e.  Operating  System  -  CP/M-86  (version  1.14) 

f.  Package  description: 

The  Names  specification  contains  the  following  global 
objects: 

TYPE  conctn 
connec  ti on 
TTPF  blk 
bl  ock 

bl ock_si ze 
re  trn 
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space 

input 

pause 

confirm 

drive 

code 

dest 

srce 

send_ready 
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APPFNDIX  C 


MAINTENANCE  MANUAL  FOP.  CONCENTRATOR  PROGRAMS 


A.  POLL 

1.  CONFIGURATION 

a .  Language  -  JANUS /Ad a 

b.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Intel  86/12A  SBC 

e.  Operating  System  -  CP/M-86  (version  1.14) 

f.  Package  description: 

The  Poll  package  is  the  main  program  for  the 
Concentrator  acting  as  a  network  switchboard.  It  contains  an 
infinite  loop  that  polls  each  one  of  23  ports  (bypassing  port 
#24  which  is  designated  as  the  bulletin  hoard  port  and  is 
never  polled)  continuously.  Poll  controls  the  satisfying  of 
requests  from  the  Z-100  workstations  and  the  storing  of  those 
requests  in  a  FIFO  queue  that  cannot  he  satisfied.  For  each 
port  Pell  checks  the  queue  for  waiting  processes.  If  there 
is  a  process  waiting.  Poll  will  satisfy  the  waiting  process 
and  then  attempt  to  satisfy  the  polled  port's  original  re¬ 
quest.  If  not,  Poll  will  immediately  attempt  to  satisfy  the 
polled  port's  request.  Poll  is  responsible  for  decoding  each 
workstation's  request  and  establishing  the  proper  path 
between  sender  and  receiver(s).  It  is  also  responsible  for 
maintaining  the  net  status!  the  list  of  all  currently  active 
ports,  and  transmitting  it  to  workstations  requesting  it. 

2.  SUBROUTINES 

a .  Convert 

(1)  Type:  Procedure 

(2)  Furpose:  To  convert  the  byte  information  re¬ 

ceived  from  the  Z-100  workstations  concerning  source  and 
destination  terminals  into  their  integer  physical  addresses. 

(3)  Description  of  Parameters:  A  value  of  type 
integer  indicating  the  index  position  in  the  queue  of  the 
current  prccess_status  record  is  the  input  variable. 

(4)  Subroutines  Called:  None 

(5)  Process  Description: 

Convert  is  two  large  case  statements  wnich  tran¬ 
slate  the  bytes  received  from  the  workstations  into  the 
proper  integer  physical  addresses  for  each  port. 

b.  Poll  calls  the  following  subroutines: 

Check_p  ort 

Check_queue 

C  onnec  t 

Convert 

Xf  er 

C  cncxf  er 
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No_xf er 
Broadcast 
Net_stat 
Cueue_status 

?.  COMMENTS 

Poll  is  resident  in  the  Concentrator  and  is  invoked  by 
typing  the  command  "poll".  It  will  not  function  properly  if 
all  three  8538  BLC  expansion  beards  are  not  installed. 

To  change  the  port  number  of  the  bulletin  board,  the 
polling  sequence  must  be  changed  to  bypass  the  new  bulletin 
board  port  and  the  automatic  routing  routines  that  route 
bulletin  board  requests  to  the  predesignated  port  must  be 
changed  accordingly.  Additionally  the  value  of  'bullport'  in 
the  procedure  Broadcast  must  be  changed. 

To  expand  the  system  for  greater  numbers  of  terminals, 
add  the  appropriate  number  of  expansion  boards  and  change  the 
following  constants:  'boardno',  'machno',  'maxque',  and  the 
procedure  Convert  which  contains  the  physical  addresses. 
Additionally,  the  value  of  'boardnum'  must  be  changed  in  the 
procedure  Broadcast. 


B.  CONCUTIL 

1.  CONFIGURATION 

a.  language  -  JANUS /Ada 

b.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Intel  86/12A  SBC 

e.  Operating  System  -  CP/M-8S  (version  1.14) 

f.  Package  description: 

The  Concutil  package  contains  utility  programs  for  the 
C  oncentrat  or . 

2.  SUBROUTINES 

a.  Check_queue 

(1)  Type:  Procedure 

(2)  Purpose:  To  check  the  queue  for  waiting 

processes . 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  indicating  the  number  of  processes  waiting  in  the 
queue  is  one  input  parameter.  A  value  of  type  Integer  indi¬ 
cating  the  port  for  whom  waiting  processes  are  being  checked 
is  the  other  input  para-meter.  A  value  of  type  Integer 
indicating  the  position  index  of  the  waiting  process  is  one 
output  variable.  A  value  of  type  Boolean  indicating  whether 
or  not  there  are  waiting  processes  is  the  other  output 
variable. 

(4)  Subroutines  Called: 

Check_port 

Oueue”status 
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(5)  Process  Description: 

Check_queue  checks  the  queue  for  waiting  processes. 

If  there  are  none  in  the  aueue  then  false  is  returned.  If 
there  are  processes  in  the  queue,  a  check  is  rrade  if  they  are 
waiting  for  the  specified  port.  If  not,  false  is  returned. 

If  there  are  processes  in  the  queue  and  they  are  waiting  for 
the  specified  port,  their  position  in  the  queue  is  returned 
along  with  a  value  of  true.  Check_oueue  then  tells  the 
specified  port  what  is  waiting  for  it  and  tells  the  sender  of 
the  waiting  process  to  resend. 

t .  Net_stat 

(1)  Type:  Procedure 

(2)  Purpose:  To  decode  and  transmit  the  list  of 

active  terminals  in  the  network  to  the  requestor. 

(2)  Description  of  Parameters:  A  value  of  type 
integer  indicating  the  port  for  which  the  net  status  is 

intended . 

(4)  Su  hr  out  in.es  Called: 

Send_ who_t lock 

(*)  Process  Descript i on : 

Net_stat  controls  the  transmission  of  the  list  of 
active  network  terminals.  Net_stat  checks  tne  data  structure 
'active_l ist '  for  those  terminals  for  which  true  has  been 
recorded,  indicating  that  they  are  active  and  stores  the 
terminal  number  information  i'1  the  data  structure  'who_list'. 

It  is  'who_list'  that  is  transmitted  to  the  requestor. 

C.  COAS^LIB 

1.  CONFIGURATION 

a.  language  -  JANUS /Assembler 

b.  Compiler  Version  -  1.50 

c.  linker  Version  -  1.50 

d.  Target  Hardware  -  Intel  S6/12A  SBC 

e.  Operating  System  -  CP/M-86  (version  1.14) 

f.  Package  description: 

The  Ccasmlib  package  contains  the  library  of  assembly 
language  subroutines  for  the  Concentrator. 

2.  CC VNFNT  3 

a.  JANUS/Ada  parameters  for  JANUS/Assembler  modules 
are  placed  on  the  stack  at  subroutine  call  with  the  last 
parameter  closest  to  the  top  a^d  the  return  address  on  the 
very  top.  Discrete  values  are  passed  for  parameters  of  type 
IN  and  the  address  of  the  parameter  is  passed  for  types  OUT 
and  IN  OUT.  Upon  return  to  +he  calling  program  CUT  and  IN  OUT 
parameters  are  removed  from  the  stack  along  with  the  return 
address  . 
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b .  The  following  subroutines  involve  input  and  output 

Check_pc  r  t 

Connect 

Oueue_status 

Send_who_tl ock 

Broadcast 
Concxf  er 
Xfer 
N  o  _  x  f  e  r 

The  rrethcd  of  transmission  used  involves  an  immediate 
echo  checking  procedure.  The  sending  subroutine  transmits 
bytes  of  data  one  at  a  time.  The  receiving  subroutine 
receives  the  data  bytes  and  echos  each  one  immediately  upon 
reception.  The  sending  subroutine  compares  the  e^ho  with  the 
transmitted  data  and  checks  for  error.  If  an  error  is 
detected,  the  sending  subroutine  either  simply  retransmits  or 
sends  an  error  code  to  tell  the  receiving  subroutine  that  the 
data  previously  received  (and  processed)  was  in  error, 
followed  by  the  retransmitted  data.  All  receiving  subroutines 
contain  a  finite  waiting  time  after  the  last  data  was 
received  to  ensure  that  the  final  echo  was  received  properly. 

3.  SUBROUTINES 

a.  Check_port 

(1)  Type:  Procedure 

(2)  Purpose:  To  poll  network  ports  looking  for  the 
active  signal 

(2)  Description  of  Parameters:  A  value  of  type 
Integer  containing  the  address  of  the  port  to  be  polled  is 
the  input  variable.  A  value  of  type  Boolean  indicating  the 
result  of  the  poll  is  the  output  parameter. 

(4)  Subroutines  Called:  N/'A. 

(5)  Process  Description: 

Check  port  polls  the  port  indicated  looking  for  the 
active  signal  (0D0h).  It  will  poll  for  a  finite  period  of 
time.  If  no  signal,  or  the  wro^g  signal,  is  found,  ready  is 
set  to  false.  If  the  active  signal  is  found,  ready  is  set  to 
true.  Check_port  is  used  for  two  purposes.  It  is  used  to 
initially  poll  ports  for  incoming  requests  (indicated  by 
active  signal)  and  to  poll  a  destination  port  to  determine  if 
it  is  ready  to  receive. 

b.  Connect 

(1)  Type:  Procedure 

(2)  Purpose:  To  receive  the  connection  record 

transmitted  by  the  sending  Z-100. 

(2)  Description  of  Parameters:  A  value  of  type 
Integer  containing  the  address  of  the  port  from  which  the 
connection  record  is  to  be  received  is  the  input  parameter. 
A  value  of  type  Integer  indicating  the  address  of  the  data 
structure  in  which  the  connection  record  is  to  be  stored  is 
the  output  parameter. 
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(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Connect  receives  the  connection  record,  sequen¬ 
tially,  one  byte  at  a  time  and  stores  it  in  the  data  struc¬ 
ture  indicated  by  the  input  parameter  until  a  sequence  of 
four  finish  codes  (0FFh),  indicating  end  of  block,  are 
received . 

c .  Cueue_ s t atus 

(1)  Type:  Procedure 

(2)  Purpose:  To  inform  a  polled  port  of  the  status 
of  waiting  processes  in  the  queue. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  containing  the  address  of  the  polled  port  is  cr.e 
input  parameter.  A  value  of  type  Eyte  indicating  the  process 
waiting  in  the  queue  (or  none)  is  the  other  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Cueue  status  transmits  to  the  port  indicated  by  cr.e 
input  parameter  the  byte  value  of  the  process  waiting  for 
that  port  ( or  none) . 

d.  Send_who_bl ock 

(1)  Type:  Procedure 

(2)  Furpose:  To  transmit  the  data  structure  contai¬ 
ning  the  net  status. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  containing  the  address  of  the  port  to  which  the  net 
status  is  destined  is  one  input  parameter.  A  value  of  tjpe 
Integer  indicating  the  address  of  the  data  structure  contai¬ 
ning  the  net  status  is  another  input  parameter.  A  value  of 
type  Integer  indicating  the  length  of  the  data  structure  is 
the  last  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Send_who_bl ock  transmits  the  data  structure  contai¬ 
ning  the  net  status  sequentially,  one  byte  at  a  time,  until 
the  length  counter  equals  zero.  Then  it  sends  out  a  sequence 
of  four  finish  codes  (0FFh),  indicating  end  of  block. 

e.  Broadcast 

(1)  Type:  Procedure 

(2)  Purpose:  To  transfer  data  in  a  broadcast  mode: 
from  one  to  many. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  containing  the  address  of  the  sending  port  is  the 
input  parameter.  A  value  of  type  Eyte  containing  the  address 
used  to  store  the  input  temporarily  is  the  output  parameter. 

(4)  Subroutines  Called:  N/A. 
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(5)  Process  Description: 

Broadcast  controls  the  transmission  of  data  from 
the  sending  port  to  all  receiving  ports.  The  data  is  tran¬ 
smitted  one  byte  at  a  time  as  rapidly  as  possible  to  all 
ports  (bypassing  the  sender,  and  the  bulletin  board).  The 
first  byte  is  received  from  the  sending  pert  specified  in  the 
first  input  parameter.  It  is  then  sent  in  quick  succession 
to  all  the  ports  beginning  with  the  first  port  in  the  net¬ 
work.  Broadcast  increments  the  receiving  port  until  all  the 
ports  are  addressed  and  the  byte  is  transmitted.  The  input  is 
saved  temporarily  for  error  checking.  Then  Broadcast  loops 
back  to  receive  the  echoes.  If  there  are  any  echoes  in 
error,  that  port  address  is  saved  until  all  the  echoes  have 
been  received.  Then  all  the  addresses  in  error  are  serviced, 
one  at  a  time  until  the  error  is  corrected.  At  this  point, 
or  if  there  were  no  errors,  Broadcast  echoes  back  to  the 
sender  the  received  byte  for  the  sender's  error  checking.  If 
there  was  an  error,  the  sender  sends  out  an  error  code  then 
the  retransmitted  byte  and  the  entire  process  is  repeated 
until  the  error  is  corrected.  If  there  is  no  error,  the  next 
byte  is  transmitted  to  the  Concentrator  until  a  sequence  of 
four  end  of  process  code  echoes  (0Flh)  are  received  from  all 
the  receiving  terminals.  Broadcast  waits  only  a  finite 
period  of  time  for  echoes  from  each  receiving  terminal,  so  if 
a  terminal  is  inactive,  the  bytes  transmitted  to  it  will  be 
continuously  overwritten.  No  attempt  is  made  to  bypass 
inactive  terminals. 

f.  Concxfer 

(1)  Type:  Procedure 

(2)  Purpose:  To  transfer  data  from  a  sending  ter¬ 

minal  to  a  single  destination  terminal. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  containing  the  address  of  the  sending  port  is  one 
input  parameter.  A  value  of  type  Integer  containing  the 
address  of  the  receiving  port  is  the  other  input  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Concxfer  controls  the  transmission  of  data  between 
two  terminals.  The  first  byte  is  received  from  the  sending 
port  indicated  by  the  first  input  parameter  and  transmitted 
from  the  receiving  port  indicated  by  the  second  parameter. 
The  echo  is  then  received  from  the  receiver  and  transmitted 
to  the  sender.  Concxfer  performs  no  error  checking!  it 
merely  passes  data  and  echoes  back  and  forth  until  it 
receives  a  sequence  of  four  end  of  process  code  echoes  (ZFlh) 
from  the  receiver.  At  that  point  it  terminates  the 
connection . 
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g .  X  f  e  r 

(1)  Type:  Procedure 

(2)  Furpose:  To  inform  the  sending  port  that  a 

connection  has  been  established. 

(3)  Description  cf  Parameters:  A  value  cf  type 
Integer  containing  the  address  of  the  sending  port  is  the 
i^put  parameter. 

(4)  Subroutines  Called:  M'A. 

(5)  Process  description: 

Xfer  transmits  to  the  sending  port  a  code  (01h) 
informing  it  that  a  connection  has  been  established. 

h .  No  xfer 

(lj  Type:  Procedure 

(2)  Purpose:  To  inform  the  sending  pert  that  a 

connection  can  not  be  established. 

(3)  Description  cf  Parameters:  A  value  of  type 
Integer  containing  the  address  of  the  sending  port  is  the 
input  parameter. 

(4)  Subroutines  Called:  N'/A. 

(5)  Process  Description: 

No  xfer  transmits  to  the  sending  port  a  code  (00h) 
informing  it  that  a  connection  can  not  be  established. 


I> .  CONCN  AM 

1.  CONFIGURATION 

a.  language  -  JANUS ''Ada 

b.  Compiler  Version  -  1.4? 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Intel  S6/12A  SEC 

e.  Operating  System  -  CP./M-86  (version  1.14) 

f.  Package  description: 

The  Concname  specification  contains  the  following 
global  objects: 

TYPE  process_status 

max_c  ue 

TYPF  ‘que 

queue 

resend 

zero 

machn  o 

ready 

active  list 


?? 


APPENDIX  D 


LISTING  OE  Z-100  PROGRAMS 


PACKAGE  Names  IS 

GLOEAL  TK  PES ,  CONSTANTS,  AND  VARIABLES 

TYPF  c  one  tn  IS 
RECORD 

process:  byte; 
source:  byte; 
destination:  byte; 

END  record; 

connection:  conctn; 

TYPE  bite  IS  ARRAY  (1..132)  OF  byte; 

block:  blk; 

block_size:  CONSTANT  Integer  :=  128; 

retrn:  CONSTANT  BYTE  :=  byte  (16#0D#); 

space:  CONSTANT  BYTE  :  =  byte  (16#20#); 

input:  byte? 

pause:  byte; 

confirm:  byte; 

drive:  byte; 

code:  integer; 

dest  ,  sree  :  Integer; 

send_ready:  EooleanJ 

END  Names; 


PACKAGE  Xferfile  IS 


TYPE  feb 

IS 

RECORD 

dr 

byte; 

fn 

ARRAY 

ft 

ARRAY 

ex 

by te ; 

si 

by  te ; 

s2 

byte; 

rc 

byte; 

dn 

ARRAY 

cr 

byte; 

END  record; 


(1 .  .8)  OF  byte; 
(1.  .3  )  OF  byte; 


(1..16)  OF  byte; 
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fctl:  fct; 
fn_ler.gth:  Integer? 

PROCEDURE  Sendfile? 

PROCEDURE  Receivefile? 

PROCEDURE  Parse  cap  (fcb2:  OUT  fct?  fnlen:  OUT  Integer)? 
FND  Xferfile? 


WITH  Myutil,  Myasmlib,  Names? 
PACKAGE  BODY  Xferfile  IS 

USE  Myutil,  Myasmlib,  Names? 


PROCEDURE  Sendfile  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 
_ JULT  1966 

— *  DESCRIPTION:  SENDFILE  PROMPTS  THE  USER  FOR  FILE  NAME  *— 

— *  AND  TYPE,  OPENS  THE  FILE  AND  TRANSMITS  EACH  128  BYTE 
RECORD  UNTIL  END  OF  FILE.  UPON  COMPLETION,  SENDFILE 
— : *  CLOSES  THE  FILE  AND  RETURNS  TO  MAIN  MENU 

xbytes:  integer  :=  2? 

ctrl_f:  CONSTANT  BYTE  :=  byte  (16#06#)? 

BEGIN 

Clearscrn  ? 

— *  SET  FCB  FOR  FILE  OPERATIONS  *~ 

fcbl .dr  :  =  byte(0) ? 
f cbl  .ex  : =  by te ( 0) ? 

Reset_disk? 

New _ line  ? 

PROMPT  USER  FOR  DISK  DRIVE  *  — 

Drive_select  (drive)? 

Nev_l ine  ? 

— *  PROMPT  USER  FOR  FILE  NAME  AND  TYPE 
LOOP 

Put  ("INTER  FILE  NAME.  )?  New  line? 

LOOP 

Put  ("FN.FT:  ")? 

Parse  cap  (fcbl,  fa_length)» 

Put  ("FILE  ”)? 

Cutconsole  (drive)? 
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J  »»  »*  . 

Put  (  :  ) ; 

FOR  i  IN  l..fn  length  LOOP 
Cutconsole  (fcbl.fn  (i)  ); 

END  LOO?; 

Put  (\  ); 

FOR  i  IN  1 . .3  LOOP 

Cutconsole  (fcbl.ft  (i)  ); 

END  loop; 

Put  ("  IS  SELECTED.  PRESS  RETURN  TO  CONFIRM,  ”); 

Put  ( "  ANY  OTHER  KEY  TO  RES  ELECT .”) ; 

Keyin  (c onf i rm ) ; 

New_l ine; 

IF  confirm  =  retrn  THEN 

exit; 
end  if; 

Put  ("ENTRY  CANCFLLED.  REENTER  FN:FT.");  New_l ine; 

New  line; 

END  loop; 

Open_f ile  ( fcbl 'ADDRESS ,  code); 
f cbl .or  : =  byte  ( 0 ) 5 

SET  DMA  TO  ADDRESS  OF  DATA  STRUCTURE  THAT  WILL  *— 
— *  HOLD  DATA  READ  FROM  FILE 

Set_DMA  (block' ADDRESS  ) ; 

— *  IF  CODE  =  255  (0FFh)  THEN  FILE  COULD  NOT  BE 

FOUND  AND  PROMPT  USER  TO  REENTER  FILE  NAME  AND 
— #  TYPE 

IF  code  /=  255  THEN 
Put  ("FILE  ”); 

Outconsole  (drive); 

Put  (”:“); 

FOR  i  IN  l..fn  length  LOOP 
Cutconsole  Tfcbl.fn  (i)  ); 

END  loop; 
put  ("."); 

FOR  i  IN  1..3  LOOP 

Outconsole  (fcbl.ft  (i)  ); 

END  loop; 

Put  (”  IS  OPENED.");  Nev_l ine ; 

Clearscrn; 

exit; 

END  it; 

Put  ("FILE  NOT  FOUND.  PLEASE  TRY  AGAIN.");  New  line; 

END  loop; 

— *  PROMPT  USER  FOR  DESTINATION  AND  SOURCE  TERMINAL  #'s 
Enter  machine  (dest,  srce); 
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— *  CREATE  CONNECTION  RECORD  *  — 

connection .destination  :=  byte  (dest); 
connection. source  :=  byte  (srce); 
connection .process  :=  ctrl_f5 

ESTABLISH  CONNECTION  WITH  DESTINATION  *— 

Put  ("WAITING...");  New_line;  Nev_line; 

Setup  ( connect i on 'ADDRESS ,  send_ready) ; 

IF  send_ready  THEN 
IF  dest  =  0  THIN 

Fut  ("FOR  BROADCAST,  PAUSE  TO  ALLOW  RECEIVER  TO  "); 
Put  ("GET  READY");  New  line; 

Put  ("PRESS  ANY  KEY  TO  SEND.  "); 

Keyin  (pause);  New  line;  New  line; 

END  if; 

Fut  ("CONNECTION  ESTABLISHED,  SENDING  FILE...  ")5 
New_line;  New_line; 

— *  READ  AND  SEND  FILE  IN  128  BYTE  ELOCKS 


LCOF 

Read  seq  (fcbl  'ADDRESS ,  code); 

IF  code  =  1  THEN 
Yes; 

exit; 

ELSE 

No; 

END  if; 

Send  block  ( bl ock 'ADDRESS ,  block  size); 

END  LOCP; 

Close  file  ( fcbl ' ADDRESS ,  code); 

Put  ("FILE  SENT.”);  New_l ine; 

ELSE 

Put  ("FILE  NOT  SENT.  DESTINATION  INACTIVE.");  New_line; 
END  if; 

Put  ("PRESS  ANY  KEY  TO  CONTINUE.  ")J 
Keyin  (pause); 

END  Sendfile; 


PROCEDURE  Receivefile  IS 

AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  JULY  1986 

— *  DESCRIPTION:  RECEIVEFILE  PROMPTS  THE  USER  FOR  FILE  * — 
— *  NAME  AND  TYPE,  CREATES  THE  FILE,  AND  RECEIVES  THE  128  * — 
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BYTE  BLOCK  FROM  THZ  SOURCE  AND  WRITES  TO  DISK  UNTIL 
— *  END  OF  FILE.  THEN  IT  CLOSES  THE  FILE  AND  DISPLAYS  #  OF 
BYTES  RECEIVED.  LASTLY  IT  RETURNS  TO  MAIN  MENU. 

rby tes :  Integer  :=  0? 
length:  Integer? 

reasor.2:  STRING  :=  "END  OF  FILE."? 
finished:  Boolean  :=  false? 


BEGIN 

C  learscrn  ? 

— ’ *  SET  FC3  FOR  FILE  OPERATIONS  *~ 

f ctl .  dr  : =  ty te (0 ) ? 
fctl .ex  :=  byte(O) ? 

Reset_disx? 

*  FROMFT  USER  FOR  DISK  DRIVE  *~ 

New_line? 

Drive_select  (drive)? 

New  line? 

Put  ("ENTER  FILE  NAME.")?  New_line? 

PROMPT  USER  FOR  FILE  NAME  AND  TYPE  *  — 

LOO? 

Put  ("FN.FT:  ")? 

Farse_cap  (fcbl,  fn_length)? 

New  line? 

Put" ("file  "); 

Outconsole  (drive)? 

Put  (*';**)  J 

FOR  i  IN  l..fn_length  LOOP 
Outconsole  (fcbl.fn  (i)  )? 

END  LOOP? 

Put  (  .  ); 

FOR  i  IN  1. .3  LOOP 

Outconsole  (fcbl. ft  (i)  )? 

END  LOOP? 

Put  ("  IS  SELECTED.  PRESS  RETURN  TO  CONFIRM,  ")? 
New  line? 

Pu  t~ ( " ANY  OTHER  KEY  TO  RESELECT." )? 

Keyin  (confirm) ? 

New_line? 

IF  confirm  =  retrn  THEN 
EXIT? 

END  IF? 

Put  ("ENTRY  CANCELLED.  REENTER  FN : FT . " ) ?  New_line? 
New_ li ne  ? 

END  LOOP? 
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Delete  file  ( fctl 'ADDRESS t  code); 

Create'f ile  ( fctl ' ADDRFSS  ,  code); 
fcbl.cr  :=  byte  (0); 

— *  SET  DMA  TO  ADDRESS  Of  DATA  STRUCTURE  THAT  WILL  * 
~! *  HOLD  DATA  RECEIVED  FROM  SOURCE  * 

Set  _DMA  ( b 1 ock  'ADDRESS )  ; 

IE  code  -  255  THEN 

Put  ("DIRECTORY  SPACE  UNAVAILABLE."); 

ELSE 

Put  ("FILE  ") J 
Outconsole  (drive); 

Put  (":"); 

FOR  i  IN  1. .fa  length  LOOP 
Outconsole  Tfcbl.fn  (i)  ); 

END  loop; 

Put  (".’’); 

FOR  i  IN  1 . .3  LOOP 

Outconsole  (fcbl.ft  (i)  ); 

FND  loop; 

Put  ("  IS  OPENED.");  New_line; 

Clearscrn? 

— *  RECEIVE  AND  WRITE  FILE  IN  128  BYTE  BLOCKS  *— 

Put  ("RECEIVING  FILE...");  New  line; 

LOOP 

Endfile  (finished); 

EXIT  WHEN  finished; 

Recv_blcck  ( bl ock 'ADDRESS ,  length); 

Write  seq  (fcbl 'ADDRESS  ,  code); 

END  LOOP? 

IF  code  =  1  THEN 

Put  ("ERROR.  NO  AVAILABLE  DIRECTORY  SPACE."); 

New  line? 

ELSIF  code  =  2  THEN 

Put  ("ERROR.  DISK  FULL.");  New_ 1 ine ; 

ELS  E 

Put  ("FINISHED  WRITING  FILE.");  New_line;  New_line; 
END  if; 

Close_f ile  ( fcbl' ADDRESS ,  code); 
rbytes  :=  rbytes  *  128? 

Put  int  (rbytes);  Put  ("  BYTES  RECEIVED.");  New_line; 
END  if; 

Put  ("PRESS  ANY  KEY  TO  CONTINUE.  ")J 
Keyin  (pause); 

END  P.eceivef ile ; 
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PROCEDURE  Parse_cap  (fcb2:  OUT  fcb;  fnlen:  OUT  Integer)  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  SEPTEMBER  19S5 

— *  DESCRIPTION:  PARSE_CAP  PARSES  THE  USER'S  FILE  NAME 
— *  AND  TYPE  FOR  INVALID  CP/M-86  CHARACTERS,  CHANGES  INPUT 
— *  TO  UPPERCASE,  AND  PLACES  IT  IN  APPROPRIATE  FIELDS  OF 
FCB . 


period:  CONSTANT  BYTE 
1  than :  CONSTANT  BYTE 
g than :  CONSTANT  BYTE 
comma:  CONSTANT  BYTE 
semi c :  CONSTANT  EYTE 
colon:  CONSTANT  BYTE 
equal:  CONSTANT  BYTE 
qrnark:  CONSTANT  BYTE 
star:  CONSTANT  BYTE 

lbrac:  CONSTANT  BYTE 
rbrac:  CONSTANT  BYTE 


:=  byte  (15#2E#); 
=  byte(16#3C#) ; 

=  by t  e ( 16#3E# ) > 

=  by te ( 16#2C# )  »* 

=  byte(16#3B#)J 
=  by  te  ( 16#3A#  )  »* 

=  by te ( 16#3D# ) I 
=  byte(16#3F#); 

=  byte(16#2A#) ; 

=  by te ( 16#5B# ) J 
=  by te( 1S#5D# ) 5 


TYPE  name  IS  ARRAY  (1..S)  OF  byte; 
filename:  name; 
capital:  Integer; 
k:  Integer  :=  0J 
h:  Integer  :=  0; 


BEGIN 

PARSE  FILE  NAME  *  — 

LOOP 

Keyin  (input); 

Cutconsole  (input); 

CASE  input  IS 

WHEN  1  than !g than ! comma ! semic ! c  ol on ! 
equal Iqmark! star! lbrac ! rbrac 
=>  New_line;  Put  ("INVALID.  TRY  AGAIN."); 
Nev_line; 

FOR  i  IN  1 . .k  LOOP 

Outconsole  (filename  (i)); 

END  loop; 

WEEN  period  =>  EXIT; 

WHEN  OTHERS 

=>  k  :=  k  +  I,* 

filename  (k)  :=  input; 

END  case; 

EXIT  VrHEN  k  =  8 ;  — *  MAX  FILE  NAME  LENGTH  *— 

END  loop; 
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IF  k  =  8  THEN 
Put  ("."); 

END  if; 

— *  PARSE  FILE  TYPE  *  — 

LCOP 

Keyin  (input); 

Outconsole  (input); 

CASE  input  IS 

WUEN  1  than  !g  than  !  c  omma  !semic!colon! 

equal!qmark!star!ltraclrfcrac!pericd 

New_line ;  Put  ("INVALID.  TRY  AGAIN."); 
New_li ne ; 

FOR  I  IN  1 . .k  LOOP 

Outconsole  (filename  (i)); 

END  loop; 

Put  ("."); 

FOR  J  IN  1 . .h  LOOP 

Outconsole  (fct2.ft  (j)); 

END  loop; 

WHEN  OTHERS 

=>  h  :=  h  +  i; 

fct2.ft  (h)  :=  input; 


END  case; 

EXIT  WHEN  h  =  Zi  MAX  FILE  TYPE  LENGTH 

END  loop; 

— *  PLACE  PARSED  INPUT  IN  FCB  ADDING  ELANK3  TO  FILL  UP 
— *  FIELDS 

fnlen  :=  k? 

FOR  i  IN  1. .8  LOOP 

fct2.fn  (i)  :=  filename  (i); 

IE  i  =  fnlen  THEN 

FOR  j  IN  (fnlen  +  1) . .8  LOOP 
fct2.fn  (j)  :=  space; 

END  loop; 
exit; 
end  if; 
end  loop; 

Nev_l ine ; 

— *  CAPITALIZE  FILE  NAME  AND  TYPE  *— 

FOR  i  IN  1 . .fnlen  LOOP 

capital  :=  Integer  (fct2.fn  (i))5 
CASE  capital  IS 

WHEN  16#61#. . 16#7A#  =>  capital  :=  capital  -  16#20# 
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=>  null; 


V.HIN  OTHERS 
“ff(D  (capital)  ’• 

END  LOOP) 

EOS  J  {"H.  “tiger  (fct2.fi  (J>>) 

capital  •  *u  " 

CASE  capital  U  =>  capital  := 

SothebI-1  ->^li 

?c«“f  U)  W‘«  (capital)) 

imd  loop; 

1NL  Parse_cap5 

'NL  Xferfile’ 


capi 


i  ta  1  -  1 6  #  2  0  # 


PACKAGE  messages  IS 

PROCEDURE  Talking.  . 
PROCEDURE  Listening. 
end  Messages  ‘« 


'VIpH  MyasMliL,  Myutil.  ^aiTieS 
PACKAGE  BOEY  is  . 

'JST  Kyasmll*.  Myutn. 

ponctant  ^yte  •-  ^  w 

refilge-'Amf  UFS^Sg.leagi).)  OP  tyte, 
mag  length:  Integer) _ 
llne_length:  Integer, 


— control  Z 


PROCEDURE  Talking  IS 


2 1SS«  s«°s5S5  r  ;*AN- 

Ftri;:- «;!«??  5m  r.  tyyte  ®;v. 

response :  lyte. 
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EG  IN 
LOOP 

Clearscrn ? 

Put  ("BEGIN  TYPING  MESSAGE.  USE  CTRL  Z  TO  STOP.”); 
New_line? 

Put  ("MAXIMUM  MESSAGE  LENGTH  IS  1600  CHARACTERS.") 
New_line?  Nev_line? 
lir.e_length  :=  0; 

— *  TYPE  IN  PAGE  FORMAT?  20  LINES,  60  CHARACTERS 
— *  PER  LINE 

FOR  i  IN  l..rrax  msg_length  LOOP 
Xeyin  (input!? 

EXIT  WHEN  input  =  end_of_Fisg? 
message  (i)  :=  input? 
msg_length  :=  i? 
line_length  :=  line_length  +  1? 

Outcorsole  (input)? 

IF  (input  =  retrn)  OR 

(lir.e_length  =  max_l ine_length)  THEN 
Nev_line  ? 

I i ne_l ength  : =  0  ? 

END  IF? 

END  LOOP? 

New  line? 


Put  ("END  OF  MESSAGE.")?  New_lire?  New_line? 

Put  ("TYPE  CTRL_S  TO  SEND.  ANY  OTHER  KEY  TO  RETYFE 
Put  ("MESSAGE.")?  New_line? 

Keyin  (response)? 

IF  response  =  Ctrl  s  THEN 
EXIT? 

END  IF? 

Put  ("MESSAGE  ERASED.")?  New_line? 

END  LOOP? 

New_l i ne  ? 

Put  ("IF  YOU  WANT  TO  SEND  TO  THE  BULLETIN  BOARD, ”); 
New_l ine  ? 

Put  ("ENTER  24  FOR  DESTINATION  MACHINE.")? 

New_line?  New_line? 

-*  PROMPT  USER  FOR  DESTINATION  AND  SOURCE  TERMINAL  t*'s 

Enter_machine  (dest,  srce)? 

-*  CREATE  CONNECTION  RECORD  *— 

connection. destination  :=  byte  (dest)? 
connection . source  :=  byte  (srce)? 
connection. process  :=  ctrl_m? 


87 


— : *  ESTABLISH  CONNECTION  WITH  DESTINATION 


Put  ("WAITING...");  New_line;  New_line; 

Setup  (c onnecti on  'ADDRESS  ,  send_ready  ) ; 

IE  ser.d_ready  THEN 
IF  dest  =  0  THEN 

Put  ("FOR  BROADCAST,  PAUSE  TO  ALLOW  RECEIVER  TO 
Put  ("GET  READY");  New_line; 

Put  ("PRESS  ANY  KEY  TO  SEND.  ") 5 
Keyin  (pause);  New  line;  New_line; 

END  if; 

Put  ("CONNECTION  ESTABLISHED,  SENDING  MESSAGE...  ") 
New_line5  New_line; 

— *  TRANSMIT  MESSAGE  AS  A  SINGLE  BLOCK  *— 

Send_t)locR  ( me ssage 'ADDRES S ,  msg_length); 

Yes; 


Put  ("MESSAGE  SENT.”);  New  line; 

ELSE 

Put  ("MESSAGE  NOT  SENT.  DESTINATION  INACTIVE."); 

New  line; 

END  if; 

Put  ("PRESS  ANY  KEY  TO  CONTINUE.  ")J 
Keyin  (pause); 

END  Talking; 

PROCEDURE  Listening  IS 

AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  AUGUST  1986 

DESCRIPTION:  LISTENING  RECEIVES  TRANSMITTED  MESSAGE  * 

— *  AND  DISPLAYS  IT  IN  A  PAGE  FORMAT  07  20  LINES,  80  * 

— *  CHARACTERS  PER  LINE.  * 

char:  tyte; 

BEGIN 

Clearscrn  J 

Put  ("RECEIVING  MESSAGE...");  New_lineJ 

— *  RECEIVE  ENTIRE  MESSAGE  *~ 

Recv_tlock  (message 'ADDRESS  ,  msg_length); 

EndmsgJ 

Put_int  (msg_length);  Put  ("  EYTES  RECEIVED.");  New_li 
— -  DISPLAY  IN  SAME  PAGE  FORMAT  AS  TYPED  *  — 
line_length  :=  0; 
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FOR  i  IN  0. . (msg_length  -  1)  LOOP 
cha  r  : =  message  ( i ) ; 
line_ length  :=  line_length  +  1 ; 
Cutconscle  (char); 

IF  (char  =  retrnj  OR 

(line_length  =  maj_line_length)  THFN 
New_l ine  5 
lini_length  :=  0? 

FNP  if; 

END  loof; 

New  line?  New  line; 

Put  ("FNP  OF  MESSAGE.")?  New_line; 

Put  ("PRESS  ANY  KEY  TO  CONTINUE.  "); 

Keyin  (pause); 

END  Listening; 

END  Messages; 


PACKAGE  Pirectry  IS 

PROCEDURE  Present  dir; 
PROCEEURZ  Receive~dir ; 
FNP  Pirectry; 


WITH  Xferfile,  Myutil,  Myasmlit,  Names; 
PACKAGE  POPY  Pirectry  IS 

USE  Xferfile,  Myutil,  Myasmlit,  Names? 


PROCEDURE  Present  dir  IS 


— *  AUTHOR:  THOMAS  V.  WORKS 
PATE:  AUGUST  1986 

DESCRIPTION:  PRESENT _DIR  PROMPTS  THE  USER  FOR  THE 
— *  REQUESTED  DISK  DRIVE  AND  TRANSMITS  THF.  DIRECTORY  EIGHT 


— *  ENTRIES  AT  A  TIME  (128  BYTES)  UNTIL  THE  ENTIRE 
— *  DIRECTORY  IS  SENT. 


nodir_str :  STRING  :=  "NO  DIRECTORY  ON  SELECTED  DRIVE.": 
dir_size :  CONSTANT  :=  16? 
count:  Integer? 

ctrl_d:  CONSTANT  BYTE  :=  tyte  (16#04#)? 
qmark:  CONSTANT  BYTE  :=  tyte  (16#3F#)? 


TYPE  tuff  IS  ARRAY  (1..128)  OF  tyte? 
tuffer:  tuff? 
dir_addr:  Integer? 
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BEG  IN 

Cl  ears  err. » 
f  ctl .d r  : =  by  te (0  ) ; 
fcbl .ex  :=  by te (0  ) ; 

Reset_disk; 

WILD  CARD  FOR  MATCHING  ENTIRE  DIRECTORY  *  — 

FCR  i  IN  1. .8  LOOP 

fctl.fr  (i)  :=  qrrark; 

END  LOCP; 

FOR  i  IN  1 . . 3  LOOP 

f  cbl .  f  t  (  i  )  :=  qrcark; 

END  loop; 

New_line ; 

prompt  user  for  disk  drive  *~ 

Drive_select  (drive); 

New_l i ne ; 

prompt  user  for  destination  and  source  TERMINAL  #'s 

Enter_machine  (dest,  sree); 

— *  CREATE  CONNECTION  RFCORD  *  — 

c onnec t i on . dest ina ti on  :=  tyte  (dest); 
c onnec ti on . source  byte  (sree); 
connection. process  :=  ctrl_d; 

FSTABLISE  CCNNECTICN  WITH  DESTINATION 

Put  ("WAITING...");  Nev_line?  Nev_line; 

Setup  ( connect! on 'ADDRFSS ,  send_ready  ); 

IF  send_ready  THEN 
IF  dest  =  0  THEN 

Put  (’’FOR  BROADCAST,  PAUSE  TO  ALLOW  RECEIVER  TO  ’’). 
Fut  (’’GET  READY”);  Nev_line; 

Put  ( "PRESS  ANY  KEY  TO  SEND.  "); 

Keyin  (pause);  New  line;  New  line; 

END  if; 

Put  (’’CONNECTION  ESTABLISHED,  SENDING  DIRECTORY  ’’ )  ? 

put  ("from  drive  ’’); 

Outconsole  (drive);  Put  ("  ...  ");  New_line;  New_line 

— *  SET  DMA  TO  ADDRESS  OF  DATA  STRUCTURE  THAT  *  — 

— *  WILL  HOLD  DIRECTORY  ENTRIES 

Set  DMA  (buffer 'ADDRESS) ; 
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TRANSMIT  DRIVE 


Driveout  (drive ) ; 

— *  MAKE  FIRST  DIRECTORY  MATCH  #— 

Search_first  ( f ctl '  ADDRESS ,  buf fer  'ADDRESS  ,  code, 
d i r_addr  ) ; 

IF  cede  =  255  THEN 

NO  MATCH,  TRANSMIT  NO  DIRECTORY  STRING 

Put_str  (nodir_str)i  New_line; 

No ; 

Send_string  (nodir_str); 

End_tl ock ; 

Yes; 

ELSE 


— *  TRANSMIT  DIRECTORY  ENTRY  * — 

No; 

Send_dir  (dir_addr,  dir_size); 
count  :=  i; 

LOO? 

LOOP 

MAKE  SUCCESSIVE  MATCHES  UNTIL  END  * 
OF  DIRECTORY  (CODE  =  255)  * 

Search_next  ( f ctl 'ADDRESS ,  tuff er  'ADDRESS , 
code,  dir_addr); 

EXIT  WHEN  code  =  255; 

— *  TRANSMIT  8  ENTRIES  PER  BLOCK 

Send_dir  (dir_addr,  dir_size); 
count  :=  count  +  i; 

IF  count  =  8  THEN 
count  : =  0 ; 


exit; 
end  if; 


END 

loop; 

IF 

code  = 

255  THEN 

No; 

End  tlo 

ck; 

exit; 

END 

if; 

End 

_tl  ock; 

No; 
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— *  PAUSE  AFTER  EACH  BLOCK  FOR  BROADCAST  *  — 

IF  dest  =  v?  THEN 

Put  ("BROADCAST,  PRFSS  ANT  KEY  TO  SEND.  "); 
Keyin  (pause);  New_line; 

END  if; 

END  loop; 

Yes; 

END  if; 

Put  ("DIRECTORY  SENT.");  Nev_line; 

ELSE 

Put  ("DIRECTORY  NOT  SENT.  DESTINATION  INACTIVE.”); 
New_line; 

END  if; 

Put  ("PRESS  ANY  KEY  TO  CONTINUE.  " )  5 
Keyin  (pause) ; 

END  Fresent  dir; 


PROCEDURE  Receive_dir  IS 

AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  AUGUST  1985 

— *  DESCRIPTION:  RECEI VE_DIR  PROMPTS  THE  USER  FOR  THE 

— *  FILE  NAME  AND  TYFE  IN  WHICH  HE  WISHES  TO  STORE  ENTRIES  *— 

— *  RECEIVED.  USER  CAN  SELECT  WHICH  BLOCK(S)  OF  8  ENTRIES  *- 

HE  WISHES  TO  SAVE,  WHICH  ARE  THEN  WRITTEN  TO  DISK.  *— 

choice:  tyte; 
rtytes:  integer  :=  0? 
length:  Integer; 
finished:  Boolean  :=  false; 

!c :  Integer; 

start,  fini:  Integer? 

period:  CONSTANT  BYTE  :=  tyte  (16#2E#)i 
no:  CONSTANT  BYTE  :=  tyte  (15#5E#); 

BEGIN 

Clearscrn? 

SET  FCB  FOR  FILE  OPERATIONS  *  — 

fctl .dr  :=  tyte(0) ; 
fctl  .ex  :=  tyte (0) ; 

Reset_disk; 

PROMPT  USER  EOR  DISK  DRIVE  *— 

New_line? 

Drive  select  (drive); 
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Nev_line; 

— *  PROMPT  USER  FOR  FILE  NAME  AMD  TYPF 

Put  ("ENTER  FILE  NAME  TO  STORE  YOUR  DIRECTORY."); 
New_line; 

LOOP 

Put  ("FN.FT:  ") ; 

Parse_cap  (fctl,  fn_length); 

New  line; 

Put  ("FILE  ”); 

Outconsole  (drive); 

Put  (”:"); 

FOR  i  IN  1 .  .fn  length  LOOP 
Outconsole  Tfctl.fn  (i)  )» 

END  loop; 

Put  ("."); 

FOR  i  IN  1 . .3  LOOP 

Outconsole  (fctl. ft  (i)  ); 

END  loop; 

Put  ("  IS  SELECTED.  PRESS  RETURN  TO  CONFIRM,  "); 
New  line; 

Put" ("ANY  OTHER  KEY  TO  RESELECT."); 

Keyin  (confirm); 

New_line? 

IF  confirm  =  retrn  TEEN 

exit; 
end  if; 

Put  ("ENTRY  CANCELLED.  REENTER  FN : FT . " ) ;  New_lineJ 
New  line; 

END  loop; 

Delete  file  ( fctl ' ADDRESS  ,  code); 

Create"file  (fctl 'ADDRESS  ,  code); 
fctl .cr  : =  tyte  ( 0) ; 

— *  SET  DMA  TO  ADDRESS  OF  DATA  STRUCTURE  THAT  WILL 
HOLD  DATA  RECEIVED  FROM  SOURCE 

Set_DMA  (block'ADDRESS ) 5 
C learscrn ; 

IF  code  =  255  THEN 

Put  ("DIRECTORY  SFACE  UNAVAILABLE."); 

ELSE 

Put  ("FILE  "); 

Outconsole  (drive); 

Put  (":"); 

FOR  i  IN  1..  fn. length  LOOP 
Outconsole  (fctl.fn  (i)  )* 

END  loop; 
put  ("."); 

FOR  i  IN  1 . .3  LOOP 
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Outconsole  (fell. ft  (i)  ); 

END  loop; 

Put  ("  IS  OPENED.”;;  New_line; 

— *  RECEIVE  DRIVE  OE  INCOMING  DIRECTORY  *— 

Drivein  (drive); 

Put  ("RECEIVING  DIRECTORY  FROM  DRIVE  ” ) ; 

Outconsole  (drive);  Put  ("  OF  SENDING  MACHINE...") 
New  line;  New_line; 

LOOP 

— *  RECEIVE  IN  128  PYTE  BLOCKS  (8  ENTRIES) 

UNTIL  END  OF  DIRECTORY 

Erdfile  (finished); 

EXIT  WHEN  finished; 

Recv  block  ( block  'ADDRESS ,  length); 

IF  block  (1)  /=  byte  (0)  THEN 

— *  NO  MATCHES,  DISPLAY  NO  DIRECTORY  STRING 

FOR  i  IN  1..26  LOOP 

Outconsole  (block  ( i ) ) ; 

end  loop; 

New_line ; 

ELSE 


— *  FORMAT  EACH  8  DIRECTORY  ENTRIES  FOR 
— *  DISPLAY 

start  :=  i;  fini  :=  16? 

FOR  i  IN  1 . .8  LOOP 

FOR  j  IN  start . .fini  LOOP 

EXIT  WHEN  block  (start)  =  no  5 
IF  j  =  (start  +  9)  THEN 
Outconsole  (period); 

END  if; 

IF  j  >  (start  +  11)  THEN 
block  (j)  :=  space? 

Outconsole  (block  (J)); 

ELSE 

Outconsole  (block  (j)); 

END  if; 

END  LOOP; 

IF  i  =  4  THEN 
New_line; 

END  if; 

start  :=  start  +  16;  fini  :=  fini  +  165 
END  loop; 

Nev_line ; 

END  IF? 
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New_line;  New  line; 

Put  ("PRESS  RETURN  IF  YOU  WANT  TO  SAVE  ON  FILE.’’); 
Keyin  (choice); 

New_line;  New_line; 

— *  WRITE  TO  DISK  ONLY  USER'S  CHOICES 

IF  choice  =  retrn  THEN 

Write  seq  ( fctl  'ADDRESS ,  cede); 

END  if; 
end  loop; 

New_line;  New_line; 

IF  code  =  1  THEN 

Fut  ("ERROR.  NO  AVAILABLE  DIRECTORY  SPACE."); 
New_line; 

ELSIF  code  =  2  THEN 

Fut  ("ERROR.  DISK  FULL.");  Nev_line; 

ELSE 

Fut  ("FINISHED  WRITING  FILE.");  New_line?  New_line 
END  if; 


Close_f ile  ( fctl 'ADDRESS  ,  code); 

END  if; 

New_l i ne ; 

Put  ("PRESS  ANY  KFY  TO  CONTINUE.  "  )  ? 
Keyi r.  ( pause )  ; 

END  Recei ve_dir * 

END  Directry; 


PACKAGE  Who  IS 

PROCEDURE  Whos_there; 
END  Who; 


WITH  Myasmlit,  Myutil,  Names; 

PACKAGE  BODY  Who  IS 

USE  Myasmlit,  Myutil,  Names; 

PROCEDURE  Whos_there  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 
CATE:  SEPTEMBER  1986 

— *  DESCRIPTION:  WHOS_THERE  RECEIVES  NET  STATUS  FROM  THE 
— 1 *  CONCENTRATOR. 
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machno:  CONSTANT  :=  241 

whos_cn:  ARRAY  (1 .  .rrachno)  OF  tyte; 

aumter_on:  Integer? 

ctrl_w:  CONSTANT  BYTE  :=  tyte  (15#17#); 

BEGIN 

Clearscrn; 

Put  ("FOR  NET  STATUS,  FNTFR  YOUR  MACHINE  #  FOR  "); 

Put  ("DESTINATION.");  New_line;  New_lineJ 

— *  PROMPT  USER  FOR  SOURCE  TERMINAL  #  *— 

Enter_irachine  (dest,  srce); 

— *  CREATE  CONNECTION  RECORD  *  — 

c cr.nection . source  :=  tyte  (srce); 
c onnec t i on . des t inat Ion  :  =  tyte  (dest); 
connection. process  :=  ctrl_w; 

— *  ESTABLISH  CONNECTION  WITH  DESTINATION 

Setup  (connection 'ADDRESS ,  send_ready); 

— *  RECEIVE  NET  STATUS  AS  A  SINGLE  BLOCK  *— 

Recv_tlock  (  whos_on 'ADDRESS  ,  numter_on)» 

— *  DISPLAY  CURRENTLY  ACTIVE  TERMINAL  #' s  *— 

Put  ("THE  FOLLOWING  NUMEERED  MACHINES  ARE  CURRENTLY  "); 
Put  ("ACTIVE:");  New_line; 

FOR  i  IN  l..numter_cn  LOOP 

Put  int  (Integer  (vhos_on  ( i  ) )  ) ;  New  line; 

END  loop; 


END  Whos_there5 
END  Who; 


PACKAGE  Built rd  IS 

PROCEDURE  Recv_tull et in  5 
END  Bulltrd? 
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’wITH  Myasmlib,  Xferfile,  Myutil,  Names; 

PACKAGE  EODY  Bullbrd  IS 

USE  Myasmlib,  Xferfile,  Myutil,  Names; 

PROCEDURE  Recv_bullet in  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 
_ #  EATZs  ^^PTEMBER  1986 

— ! *  DESCRIPTION:  REC V_BULLET  I N  PROMPT  USER  FOR  FILE  NAME 
AND  TYPE  IN  WHICH  HE  WISHES  TO  STORE  MESSAGES  RECEIVED 
— *  FROM  TEE  BULLETIN  BOARD,  OPENS  TEE  FILE,  RECEIVES  DATA 
IN  128  BYTE  BLOCKS,  AND  WRITES  TO  DISK  THE  RECEIVED 
— ! *  DATA. 

rec v_b :  CONSTANT  BYTE  :=  byte  (16#02#); 

BEGIN 

Clearscrn? 

Put  ("TO  RECEIVE  BULLETIN  BOARD,  ENTER  24  FOR  ”); 

Put  ("DESTINATION  MACHINE.");  New_line5 

Er.ter_machine  (dest,  srce); 

— *  CREATE  CONNECTION  RECORD  *~ 

c onnec ti on . source  :=  byte  (srce); 
c cnnec tion. destination  :=  byte  (dest); 
connection .process  :=  recv_b; 

— *  ESTABLISH  CONNECTION  WITH  BULLETIN  BOARD 

Put  ("WAITING...");  New_lineJ  New_line5 
Setup  (connection 'ADDRESS ,  send_ready); 

IE  send  ready  THEN 

Put  {""CONNECTION  ESTABLISHED.  READY  TO  RECEIVE  ” ) 
Put  ("BULLETIN  BOARD.");  New_line;  New_line; 

— *  RECEIVE  MESSAGES  FROM  BULLETIN  BOARD  AND 
STORE  ON  FILE 

Receivef ile ; 

Put  ("BULLETIN  EOARD  RECEIVED. ") ;  Nev_line; 

ELSE 

Put  ("BULLETIN  EOARD  INACTIVE.");  New  line; 

END  if; 

Put  ("PRESS  ANY  KEY  TO  CONTINUE."); 

Keyin  (pause); 

END  Recv_bul let  in  J 

END  Bullbrd; 
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PACKAGE  Myutil  IS 

PROCEDURE  Fut  int  (output:  IN  Integer); 

PROCEDURE  Clearscrr.; 

PROCEDURE  En ter_machi ne  (machdest:  OUT  Integer; 

machsrce:  OUT  Integer); 
PROCEDURE  Drive_select  (d_drive:  OUT  byte); 

END  Myutil; 


WITH  Myasml i b,  Names  ? 

PACKAGE  BODY  Myutil  IS 
USE  Myasmlib,  Names? 


PROCEDURE  Put_int  (output:  IN  Integer)  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  JUNE  1986 

DESCRIPTION:  PUT  INT  DISPLAYS  INTEGER  VALUES  BY 

*  SEPARATING  THE  MOST  SIGNIFICANT  DIGIT  AND  DISPLAYING 
IT  UNTIL  THERE  ARE  NO  MORE  DIGITS. 

max:  Integer  :=  10000; 
count:  Integer  :=  05 
zero  ctr:  Integer  :=  1» 
tempi,  temp2:  Integer? 

BEGIN 

t empl  : =  output  ? 

IF  tempi  <  0  THEN 

Put  ("-")?  — *  NEGATIVE  NUMBER  *— 

FND  IF? 

IF  tempi  =  0  THEN 
Put  ("0”); 

ELSE 

WHILE  max  /=  0  LOOP 
LOOP 

*  REMOVE  MOST  SIGNIFICANT  DIGIT  * — 

temp2  :=  templ/max? 
tempi  :=  tempi  REM  max? 
count  :=  count  +  1? 

— *  REMOVE  LEADING  ZEROS  *— 

IF  (count  =  zero_ctr)  AND  (temp2  =  0)  THEN 
zero_ctr  :=  zero_ctr  +  1? 
max  :=  max/10? 
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exit; 
end  if; 


DISPLAY  MOST  SIGNIFICANT  DIGIT  *  — 

My_put  ( temp2 ) ; 
max  :=  max/10; 

IF  max  =  0  THEN 

exit; 
end  if; 
end  loop; 

— *  UNTIL  THERE  ARE  NO  MORE  DIGITS  *— 

END  loop; 
end  if; 

END  Put  int; 


PROCEDURE  Clearscrn  IS 

— ! *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  SEPTEMBER  1986 

— *  DESCRIPTION:  CLEARSCRN  DISPLAYS  THE  CLEAR  SCREEN 
— *  CODES  CAUSING  TEE  SCREEN  TO  BE  CLEARED. 

escape:  CONSTANT  BYTE  :=  by te ( 1S#1B# ) ; 
clrscn:  CONSTANT  BYTE  :=  byte(16#45#) ; 

BEGIN 

Outconsole  (escape); 

Outconsole  (clrscn); 

Nev_line;  Nev_line5 

END  Clearscrn; 


PROCEDURE  Enter_machine  (machdest:  CUT  Integer; 

machsrce:  OUT  Integer)  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 
DATE:  AUGUST  1986 

— ’ *  DESCRIPTION:  ENTER  MACHINE  PROMPTS  USER  FOR  SOURCE 
*  AND  DESTINATION  TERMINAL  NUMBERS  AS  A  TWO  DIGIT 
— *  NUMBER  AND  THEN  CONVERTS  IT  TO  THE  APPROPRIATE  BYTE 
— *  EQUIVALENT. 

machine:  ARRAY  (1..3)  OF  byte; 
tempi,  temp2:  Integer; 
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BIG  IN 

Put  ("ENTER  DESTINATION  MAC El NE  (01, 02.. 24)  OR  " ) 5 
Put  ("BROADCAST  (00)  ");  New_line; 

Put  ("FOLLOWED  BY  RETURN.");  New  line? 

LOOP 

Put  ("NOTE:  BE  SURE  TO  ADD  LEADING  ZERO.");  Nev_li 

— -  CONVERT  TWO  DIGIT  KEYEOARD  INPUT  INTO  BYTE 
— *  EQUIVALENT  FOR  DESTINATION  TERMINAL 

FOR  i  IN  1 . . 3  LOOP 
Keyin  (input); 

IF  input  =  retrn  THEN 

machine  (i)  :=  hyte  (16#20#); 

exit; 

ELSE 

machine  (i)  :=  input; 

END  if; 

END  loop; 


Put  ("MACHINE  NUMBER  "); 

FOR  i  IN  1 . . 3  LOOP 

Outconsole  (machine  (i)); 

END  loop; 

Put  ("  IS  SELECTED.  FRESS  RETURN  TO  CONFIRM."); 
New_line; 

Keyin  (confirm); 

Nev_line; 

IF  confirm  =  retrn  THEN 

exit; 
end  if; 

Put  ("ENTRY  CANCELLED.");  New_line; 

New  line? 

END  loop; 

tempi  :=  Integer  (machine  (1))  -  16#30#; 
temp2  :=  Integer  (machine  (2))  -  16#30#5 
machdest  :=  tempi  *  10  +  temp2; 

LOOP 

Put  ("ENTER  YOUR  MACHINE.  NOTE:  BE  SURE  TO  ADD  "); 
Put  ("LEADING  ZERO.”);  New_line; 

— *  DITTO  FOR  SOURCE  TERMINAL  *~ 

FOR  i  IN  1 . . 3  LOOP 
Keyin  ( input ) ; 

IF  input  =  retrn  THEN 

machine  (i)  :=  hyte  (16#30#)J 

exit; 

ELSE 

machine  (i)  :=  input; 

END  if; 
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END  loop; 


put  ("machine  number  "); 

FOR  i  IN  1 . .3  LOOP 

Outconsole  (rracbine  (i)); 

ENE  loop; 

Put  ("  IS  SELECTEE.  PRESS  RETURN  TO  CONFIRM."); 
New_ line ; 

Keyin  ( conf i rm ) ; 

New_line; 

IF  confirm  =  retrn  THEN 

exit; 
end  if; 

Put  ("ENTRY  CANCELLED.");  Nev_line; 

New_line; 

END  loop; 

tempi  :=  Integer  (machine  (1))  -  16#30#; 
temp2  :=  Integer  (machine  (2))  -  lc#30#; 
machsrce  :=  tempi  *  10  +  temp2» 

END  Enter  machine? 


PROCEDURE  Dr ive_selec  t  (d_drive:  CUT  hyte)  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  SEPTEMBER  1986 

— *  DESCRIPTION:  DR  I VE_SELECT  PROMPTS  USER  FOR  SELECTED  * 
DISK  DRIVE  AND  PASSES  INPUT  TO  OPERATING  SYSTEM.  * 

dislt_drive:  Integer; 

A:  CONSTANT  BYTE  :=  byte  (16#41#); 

B:  CONSTANT  BYTE  :=  byte  (16#42#); 

C:  CONSTANT  BYTE  :=  byte  (16#43#); 

D:  CONSTANT  BYTE  :=  byte  (16#44#); 

E:  CONSTANT  BYTF  :=  byte  (16#45#); 


— 5 #  LOWER  CASE 


sa: 

CONSTANT 

BYTE 

:=  byte 

( 16#61# ) ; 

sb: 

CONSTANT 

BYTE 

:=  byte 

( 16#62# ) ; 

sc: 

CONSTANT 

BYTE 

:=  byte 

(16#63#)J 

sd : 

CONSTANT 

BYTE 

:=  byte 

( 16#64# ) ; 

se : 

CONSTANT 

BYTE 

:=  byte 

( 16#65# ) ; 

BEGIN 

LOOP 

Put  ("SELECT  DRIVE:  A,  B,  C,  D,  E.”)J 
Keyin  (d  drive ) ; 

New_lineT 
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Put  ("ERIVE  ") ; 

Outconsole  (d_drive); 

Put  (”  IS  SELECTED.  PRESS  RETURN  TO  CONFIRM,  "  )  5 
New  line? 

Put' ("ANY  OTHER  KEY  TO  RESELECT."); 

Keyin  (confirm); 

New_line ; 

IF  confirm  =  retrn  THEN 

exit; 

END  if; 

Put  (’ENTRY  CANCELLED.”);  Nev_line; 

New  line; 


END  loop; 

CASE  d 

dr 

ive  IS 

WHEN 

A 

l  sa 

=  > 

disk 

_drive 

•  — 

0; 

Select 

_disk 

( disk 

_dr i ve 

WHEN 

B 

!  sh 

=> 

disk 

_drive 

•  — 

l; 

Select 

_disk 

(disk 

_dr ive 

WHEN 

C 

!  sc 

=  > 

disk 

_dr ive 

•  — 

• 

2; 

Selec  t 

_disk 

( disk 

_dr ive 

WHEN 

D 

!  sd 

=> 

di  sk 

_dri ve 

•  — 

•  “ 

3; 

Select 

_disk 

(disk 

_dr ive 

WHEN 

E 

!  se 

=> 

disk 

_drive 

•  — 

4; 

Select 

_disk 

(disk 

_dr ive 

WHEN 

OTHERS 

=> 

Pu  t 

(  INVALID 

DRIVE.  DEFAULT 

IS  A: 

")? 

New_ 

line; 

disk 

drive 

•  — 

0; 

Selec  t 

disk 

(disk 

drive 

END  case; 
New  line? 


END  Drive_selec t ; 
END  Myutii; 


PACKAGE  Myasmlib  IS 

PROCEDURE  Create_f ile  (addres 

result 

PROCEDURE  Close_f ile  (address 

result : 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


Open_file  (address: 
Read_seq  (address: 
Write_seq  (address: 
Set_DMA  (dma:  IN  In 
Delete_file  (addres 
result 


Select_disk  (disk: 

Reset_diskJ 

Keyin  (inchar  :  OUT 


s:  IN  Integer; 

:  OUT  Integer); 

:  IN  Integer? 

OUT  Integer); 

IN  Integer?  resul 
IN  Integer?  result 
IN  Integer;  resul 
teger) ; 

s:  IN  Integer; 

:  OUT  Integer); 

IN  Integer); 


t 

t 


OUT  Integer 
OUT  Integer ) 
OUT  Integer 
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PROCEDURE 

PROCEDURE 

PROCEDURE 


hy te) J 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
END  Myasmlib? 


Outconsole  (outchar  :  IN  byte)? 

Send_block  (address:  IN  Integer?  size:  IN  Integer}? 
Yes? 

No? 

Recv_block  (address:  IN  Integer?  len:  OUT  Integer)? 
Endfile  (finish:  OUT  Boolean)? 

Active? 

Waiting  (stet:  CUT  tyte)? 

Setup  (addr:  IN  Integer?  rdy:  OUT  Boolean)? 

My_put  (inval:  IN  Integer)? 

Fut_str  (str:  IN  STRING)? 

En  dmsg? 

Search_first  (address:  IN  Integer?  buff:  IN  Integer 
result:  OUT  Integer?  addr:  OUT  Integer 
Search_next  (address:  IN  Integer?  buff:  IN  Integer? 

result:  OUT  Integer?  addr:  OUT  Integer) 

End_block? 

Send_string  (str:  IN  STRING)? 

Send_dir  (dired:  IN  Integer?  size:  IN  Integer)? 
Driveout  (driv:  IN  byte)? 

Drivein  (driv:  OUT  byte)? 

Off? 


PACKAGE  ASSEMBLY  Myasmlib 


jmp  main 


PROC  Create  file? 


— : *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  JUNE  1986 

— *  DESCRIPTION:  CREATE  FILE  CREATES  A  FILE  SPECIFIED  BY  *- 
— *  THE  FCB  USING  CP/M-66  FUNCTION  #22.  *- 


cr_code  equ  16h 

pop  ax 
pop  si 
pop  dx 
push  dx 
push  si 
push  ax 

rrov  cl,  cr_code 
int  224 
mov  [si]  ,  al 
ret 

END  PROC  Create  file? 


?return  address 
?code  address 
?FCB  address 
?restore  stack 
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FROC  Close_file; 

— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  JUNE  1986 

— *  DESCRIPTION:  CLOSE_FILE  CLOSES  A  FILE  SPECIFIED  BY 
THE  FCB  USING  CP/M-86  FUNCTION  #16. 

cf_code  equ  10h 

pop  ax 
pop  si 
pop  dx 
push  dx 
push  si 
push  ax 

mov  cl ,  cf  c ode 
int  224 
mov  [si]  ,  al 
re  t 

END  PROC  Close  file; 


PROC  Open_file; 

— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  JUNE  1986 
— *  DESCRIPTION:  OPEN  FILE  OPENS  A  FILE  SPECIFIED  BY  THE  *- 
FCB  USING  CP/M-86  FUNCTION  #15.  *- 

of_code  equ  0fh 

pop  ax 
pop  si 
pop  dx 
push  dx 
push  si 
push  ax 

mov  cl ,  of  _c ode 
int  224 
mov  [si]  »  al 
re  t 

END  PROC  Open_f ile; 


PROC  Read_seq; 

— *  AUTHOR:  THOMAS  V.  WORKS 
— J *  DATE:  JUNE  1986 

DESCRIPTION:  READ_SEQ  PEADS  SEQUENTIAL  128  BYTE 

— *  RECORDS  FROM  THE  FILE  SPECIFIED  BY  THE  FCB  USING 
~ *  CP/M-e6  FUNCTION  #20. 


•return  address 
Jcode  address 
5FCB  address 
Jrestore  stack 


Jreturn  address 
Icode  address 
IFCB  address 
trestore  stack 
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rs_code  equ  14h 


pop  ax 

Ireturn  address 

pop  si 

Icode  address 

pop  dx 

5FCB  address 

push  dx 

Irestore  stack 

push  si 

push  ax 

mov  cl,  rs  code 

int  224 

mov  [s i  1  ,  ax 

ret 

END  PROC  Read_seql 


PROC  Write_seql 

— *  AUTHOR:  THOMAS  V.  WORKS 
~! *  BATE:  JUNE  1986 

DESCRIPTION:  WRITE  SEQ  WRITES  SEQUENTIAL  128  BYTE  *— 

— *  RECORDS  TO  THE  FILE~SPEC IFIEB  BY  THE  ECB  USING  CP/M-86 
— *  FUNCTION  #21.  *— 

ws_code  equ  15h 


pop 

ax 

Ireturn  address 

pop 

si 

'.code  address 

pop 

dx 

IFCB  address 

push 

dx 

Irestore  stack 

push 

si 

push 

ax 

mov 

cl  #  vs  c ode 

int 

224 

mov 

[si]  ,  ax 

re  t 

END  PROC  Vri te_seq I 


PROC  Set_DMAI 

— *  AUTHOR:  THOMAS  V.  WORKS 
DATE:  JUNE  1986 

— *  DESCRIPTION:  SET  DMA  SETS  THE  DMA  TO  THE  SPECIFIED 
— *  ADDRESS  USING  CP/M-86  FUNCTION  #26. 

sdm_code  equ  lah 

pop  ax  Ireturn  address 

pop  dx  I  DMA  address 

push  ax  Irestore  stack 
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mov  cl ,  sdm_code 

int  224 

ret 

END  PROC  Set  DMA; 


FRO C  Delete_file; 

— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  JUNE  1986 

DESCRIPTION:  DELETE  FILE  DELETES  THE  FILE  SPECIFIED  *- 

EY  THE  FCB  USING  CP/M-86  FUNCTION  #19.  *- 

df_code  equ  13h 

pop  AT 
pop  si 
pop  dx 
push  dx 
push  si 
push  ax 

mov  cl,  df_code 
int  224 
mov  [si] ,  al 
ret 

END  PROC  Delete  file; 


PROC  Select  disk; 


Jreturn  address 
;code  address 
5FCB  address 
Jrestore  stack 


--*  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  JULY  1986 

— : *  DESCRIPTION:  SELECT_DISK  DESIGNATES  THE  DEFAULT  DISK  *- 
— *  DRIVE  FOR  SUBSEQUENT  FILE  OPERATIONS  USING  CP/M-86  *- 
— ; *  FUNCTION  #14.  *- 


sd  code 


equ  0eh 


pop  ax 
pop  dx 
push  ax 

mov  cl ,  sd  c ode 

int  224 

ret 


;return  address 
;disk  drive  value 
Jrestore  stack 


END  PROC  Select  disk? 


PROC  Reset_diskJ 

*  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  JULY  1986 

— *  DESCRIPTION:  RESET  DISK  RESETS  ALL  DISK  DRIVES  TO 
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in  tj 


READ/WRITE  AND  SET  THE  A  DISK  AS  THE  DEFAULT  DISK  FCR 
— *  ALL  SUBSEQUENT  FILE  OPERATIONS  USING  CP/M-S6  FUNCTION  *  — 
— *  #13.  *— 

rd_c ode  equ  0dh 

mov  cl,  rd  code 

int  224 

ret 

END  FRCC  Reset  disk? 


FROC  Keyin; 

AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  APRIL  1995 

— *  DESCRIPTION:  KEYIN  OBTAINS  INPUT  FROM  THE  KEYBOARD 
— *  USING  CP/M-66  FUNCTION  #06. 

tatus.ccde  equ  0ffh 

irio_code  equ  06h 

conout_code  equ  02h 

top  ax 
pop  di 
push  di 
push  ax 

nokey:  mov  cl,  dirio_code 

mov  dl,  status_code 
int  224 
cmp  al,  0 
jz  nckev 
mov  [di]  ,  al 
ret 

END  PROC  Keyin; 

PROC  Outconsole? 

AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  APRIL  1986 

DESCRIPTION:  OUTCONSOLE  DISPLAYS  OUTPUT  TO  THE  *- 

— *  CONSOLE  DEVICE  USING  CP/M-86  FUNCTION  #02.  *- 

pop  bx  Jreturn  address 

pop  ax  Jvalue  to  be  output  to  console 

push  bx  Restore  stack 

mov  cl,  conout_code 

mov  dl ,  al 

int  224 

ret 


5return  address 
;  output  address 
Restore  stack 


; if  zero,  no  input  from  keyboard 
Jstore  value  from  keyboard 


END  FROC  Outconsole; 


10? 


PROC  Send  block; 


— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  AUGUST  1986 

— *  DESCRIPTION:  SEND_BLCCK  TRANSMITS  A  BLOCK  OF  DATA, 

— 515  SEQUENTIALLY  ONE  BYTE  AT  A  TIME  VIA  THE  MODEM  PORT. 

— *  EACH  BYTE  SENT  IS  ERROR  CHECKED  BY  IMMEDIATE  ECHO.  THE 
ADDRESS  *ND  THE  LENGTH  OF  THE  DATA  BLOCK  TO  BE 
— *  TRANSMITTED  ARE  INPUT  PARAMETERS.  A  SEQUENCE  OF  FOUR 
— *  BLOCK  CODES  (OFFh )  INDICATING  END  OF  3LOCK  ARE  SENT 
AFTER  THE  DATA. 


5^  — 


c  tr 

equ 

03h 

i o_port 

equ 

0ECh 

rec v_rdy 

equ 

02h 

err or_code 

equ 

0EFh 

b lock_c ode 

equ 

0FFh 

status_port 

equ 

0EDh 

pop  ax 

Jreturn  address 

pop  bx 

Jlength  of  data  structure 

pop  si 

•  data  structure  address 

push  ax 

Jrestore  stack 

mov  ch,  4 
mov  dl ,  i o  port 

;block_code  counter 

1 oopb : 

mov  al ,  [si] 
out  dx,  al 

;send  out  char 

inc  dx 

; s  ta  tpor t 

loopa: 

in  al ,  dx 

and  al ,  recv_rdy 

j z  loopa 

Jvait  for  echo 

dec  dx 

; datapor  t 

in  al,  dx 

Jget  echo 

cmp  al ,  [si] 
jnz  errorl 

Jcheck  for  error 

inc  si 

;get  new  char 

dec  bx 

Idecrement  length 

jnz  looph 
jmp  over 

;do  again  until  length  =  0 

errorl : 

mov  al,  error_code 

out  dx,  al 

Jtell  receiver  error  in 
; transmi ssi on 

inc  dx 

; statport 

1 oopd : 

in  al,  dx 

and  al ,  recv_rdy 

jz  loopd 

Jwait  for  echo 

dec  dx 

Jdataport 

in  a 1 ,  d x 

cmp  al  ,  error_code 

Icheck  to  see  if  error  code 
;  received 
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jnz  errorl 

e rr  or2  : 

mov  al ,  error_ccde 
out  dx,  al 
inc  dx 

1  o  o  p d2  : 

in  al,  dx 

and  al ,  recv_rdy 

jz  loopd2 

dec  dx 

in  al ,  dx 

cmp  al ,  error_ccde 
jnz  errcr2 
jmp  loopb 

over : 

mov  al ,  bl cck_c ode 
out  dx,  al 
inc  dx 

1 oopc: 

in  a 1 ,  d x 

and  al ,  recv_rdy 

jz  loopc 

dec  dx 

in  al ,  dx 

cmp  al ,  bl ock_c ode 
jnz  errors 
dec  ch 

jnz  over 
re  t 

error3 : 

mov  al ,  bl ock_c ode 
out  d  x ,  a 1 
inc  dx 
jmp  loopc 

END  PROC 

Send  block; 

PROC  Yes; 

— *  AUTHOR:  TEOMAS  V.  WORKS 
— *  DATE:  AUGUST  1986 

DESCRIPTION:  YES  TRANSMITS 

— *  CODES  (0Elh)  INDICATING  END 

yes_code  equ  0Elh 

pop  ax 
push  ax 

mov  ch,  4 
mov  dl,  io_port 
more2:  mov  el,  yes_code 

out  dx,  ax 
inc  dx 


; i f  not,  retransmit  error  code 
;send  second  error  code 

;  sta  tport 
{wait  for  echo 


{datapor  t 

{check  to  see  if  error  code  was 
Jreceived 

; i f  not,  retransmit  error  code 
{retransmit  char 

{tell  receiver  end  of  block 

{statport 
{wait  for  echo 


{ datap  or  t 
{get  echo 
{check  for  error 

{send  out  next  block  code 
{until  four  are  sent  out 
{done 


{retransmit 
{statport 
{check  again 


A  SEQUENCE  OF  FOUR  YES 
OF  PROCESS. 


{yes  code  counter 
{send  out  yes  code 


{ statport 
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0 


loop2:  in  al,  dx 

and  al,  recv_riy 

jz  lcop2 

dec  dx 

in  al ,  dx 

cmp  al ,  yes_code 

jnz  error4 

dec  ch 

jnz  rrore2 

re  t 

error4:  mov  al ,  yes_code 

out  dx ,  al 
inc  dx 
jmp  loop2 

END  PP.OC  Yes; 


Jwait  for  echo 


;  datapor t 

Jget  echo 

Jcheck  for  error 

I  i f  error,  retransmit 

; d  o  again  until  counter  = 


; ret  ransmi t 
» statport 


PROC  No! 

— *  AUTHOR:  THOMAS  V.  WORKS 
DATE:  AUGUST  1996 

— : *  DESCRIPTION:  NO  TRANSMITS  A  SINGLE  NO  CODE  (6EH) 
INDICATING  FROCESS  CONTINUING. 

no_code  equ  6Eh 


pop  ax 
push  ax 

mov  dl ,  io_por t 

Jsend  out  no  code 

more3: 

mov  al,  no_code 

out  dx,  ax- 
inc  dx 

;  statport 

1 oo  p3 : 

in  al ,  dx 

Jwait  for  echo 

and  al,  recv_rdy 
jz  lcop3 
dec  dx 

; datapor  t 

in  al ,  dx 

Jget  echo 

cmp  al ,  no_c ode 

Jcheck  for  error 

jnz  more3 

5 if  error,  do  again 

ret 

END  PROC  No; 

PROC  Recv_hlock; 

— *  AUTEOR:  THOMAS  V.  WORKS 
— *  DATS:  AUGUST  1986 

DESCRIPTION:  RECV_ELOCK  RECEIVES  A  BLOCK  OF  DATA,  *- 

--1 *  SEQUENTIALLY  ONE  BYTE  AT  A  TIME  VIA  THE  MODEM  PORT.  *- 

— *  THE  ADDRESS  TO  STORE  TEE  RECEIVED  TEE  DATA  IS  AN  INPUT  #- 
~ *  PARAMETER  AND  THF  AMOUNT  OF  DATA  RECEIVED  IS  AN  OUTPUT  *- 
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— *  PARAMETER .  RECV_BLOCK  WAITS  UNTIL  IT  RECEIVES  A  *- 
— *  SEQUENCE  OF  FOUR  3L0CK  COLES  (0FFh)  INDICATING  END  CF  *- 
— : *  DATA  3L0CE  .  *- 


pop  ax 
pop  si 
pop  di 
push  di 
push  si 
push  ax 

nov  bl  ,  ctr 
m ov  ch  ,  4 
mov  cl,  0 

mov  dl ,  status_pcrt 
1 oop4:  in  al ,  dx 

and  al,  recv_rdy 

jz  loop4 

dec  dx 

in  al,  dx 

out  dx,  al 

mov  [di]  ,  al 

cmp  al ,  error_code 

jz  error5 

inc  d  i 

inc  cl 

cmp  al ,  tl ock_c ode 
jnz  notyet 
dec  ch 
j  z  f ini 

inc  dx 
jmp  loop4 

nctyet:  mov  ch,  4 

inc  dx 
jmp  loop4 

error5:  inc  dx 

loop5:  in  al,  dx 

and  al,  recv_rdy 

jz  loopS 

dec  dx 

in  al,  dx 

out  dx ,  al 

cmp  al ,  error_code 

jz  eloop 

mcv  [di]  ,  error_code 
inc  d i 

mov  fdi]  ,  al 


Ireturn  address 
Ilength  address 
Idata  structure  address 

Irestore  stack 


Itimeout  counter 
Ifinish_code  counter 
Ilength  counter 

Icheck  for  incoming  char 


Idataport 

Jget  char 

lecho  char 

I store  char 

Icheck  for  error  code 

lif  no  error,  increment 
;i ocati on 
lincrement  length 
Icheck  for  end  of  block 

Ibegin  counting  block  codes 
I  jump  when  number  of  block 
;  codes  =  4 
istatport 

; if  not  check  for  next 
Ifinish  code 

Ireload  finish  code  counter 
;  statport 
;get  next  char 

Istatport 

Icheck  for  second  error  code 


I  datapor  t 

Iget  input  char 

lecho  input  char 

I  is  this  a  t  rue  error 

lif  yes,  jump  to  error  handler 

lif  not,  treat  it  like  a  real 

Ichar  and  store 

Inext  location 

Istore  the  char  mistaken  as 


111 


ir.c  di 

Jsecond  error  code 

J next  location  -  new  we're 

i nc  dx 

Jback  to  normal 

Jstatport 

j rrp  loop4 

•get  next  char 

el oop: 

inc  dx 

J  s  tatpor t 

1 oop6 : 

in  al,  dx 

Jcheck  for  retransmitted  char 

and  al ,  recv_rdy 
jz  lcop6 
dec  dx 

Jdatapor t 

ir.  al,  dx 

Jget  retransmitted  char 

out  dx ,  al 

leoho  retransmitted  char 

dec  di 

Joverwrite  error 

nov  [di]  ,  al 
inc  di 

Jnext  location 

inc  dx 

; s  ta  tpor t 

jmp  loop4 

Jget  next  char 

f  in i  : 

inc  dx 

J  sta  tport 

c  ou  n  1 1 : 

dec  11 

Jtimeout  to  ensure  echo  was 

jz  none 

J  received 

Jfinish  if  counter  =  0  and  no 

in  a  1 ,  d  x 

Jchar  received 

Jwait  for  input 

and  al,  recv_rdy 

Jz  countl 
dec  dx 

J  dataport 

in  al,  dx 

Jget  input 

out  dx,  al 

Jecho  input 

cmp  al ,  block_code 

Jone  last  check 

jz  none 

Jif  finish  code  .continue 

mov  tl ,  ctr 

Jif  not,  do  again 

n  one : 

jmp  fini 
sub  cl,  4 

Jremove  four  block  codes  from 

irov  ch,  0 

J length 

Jzero  ch 

mov  [si]  ,  cx 

Jstore  length  for  return 

re  t 

J  finished 

END  FROC 

Recv_block J 

FROC  EndfileJ 


— -  AUTHOR:  THOMAS  V.  WORKS 
DATE:  AUGUST  1986 

— *  DESCRIPTION:  ENDFILE  WAITS  TO  RECEIVE  EITHER  A  SINGLE  *— 
— : *  NO  CODE  (6Eh)  INDICATING  FILE  NOT  FINISHED,  OR  A  *~ 

— *  SEQUENCE  OF  FOUR  YES  CODES  (0Flh)  INDICATING  FILE 
— *  FINISHED. 
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f ile_end  equ  0Flh 

nc_end  equ  5Fh 


pop  ax 

; return  address 

pop  di 

Jaddress  of  output  variable 

push  di 
push  ax 

Restore  stack 

mov  ch,  4 

.’file  end  counter 

mov  11 ,  ctr 

;timeout  counter 

ir  ore5 : 

mov  dl ,  s ta tus _p ort 

?check  for  input 

1 oopg : 

in  al ,  dx 

and  al ,  recv_rdy 

jz  loopS 

dec  dx 

;dataport 

in  al ,  dx 

?get  input 

out  dx  ,  al 

Jecho  input 

cmp  al ,  no_end 
jz  donel 

cmp  al ,  f i le_end 

^decode  input 

jnz  mores 

.if  neither,  go  back  for 
Retransmitted  input 

dec  ch 

5  if  file  end,  begin  counting 
iuntil  four  are 

jnz  more5 

;  received 

d  onel : 

mov  cl ,  al 

Jstore  input  temporarily 

more?: 

i nc  dx 

;  s  ta  tport 

c  ou  r.  1 2  : 

dec  11 

Rimeout  to  ensure  echo  was 
Received 

jz  done2 

Ifinish  if  counter  -  0  and  no 
Jchar  received 

in  al,  dx 

and  al ,  rec v_rdy 

jz  count2 

.wait  for  input 

dec  dx 

; dataport 

in  al ,  dx 

.get  input 

out  dx,  al 

;echo  input 

cmp  al,  f ile_end 

.one  last  decode  and  check 

j  z  tru 

cmp  al,  no_end 
j  z  f  al 


mov  bl,  ctr 

; if  neither,  do  again 

don  e2 : 

jmp  moreS 
mov  al,  cl 

reload 

for  decode 

cmp  al ,  f ile_end 

;  dec  ode 

input 

f  al : 

j z  tru 

cmp  al ,  no  end 
jz  f al 

mov  [di]  ,  00 

5  f al se 

tru : 

ret 

mov  [di]  ,  01 

5  true 

ret 
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END  FP.OC  Endfile? 


PROC  Active; 

AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  SEPTEMBER  1986 

— *  DESCRIPTION:  ACTIVE  TRANSMITS  THE  ACTIVE  CODE  (0D0h)  *- 

— *  TO  THE  CONCENTRATOR  INDICATING  AN  ACTIVE  STATUS  AND  *- 
WAITS  FOR  A  REPLY.  *- 


ready_ccde  equ  0D0h 


p  op  ax 

Jreturn  address 

push  ax 

Jrestore  stack 

rdy : 

mov  dl,  io_port 
mov  al,  ready_coae 

Jdatapor t 

out  dx,  al 

Jsend  out  ready  code 

inc  dx 

;  statport 

1 oop9: 

in  al ,  dx 

and  al ,  recv_rdy 

jz  1 oop9 

Jwait  for  echo 

dec  dx 

;  datapor  t 

in  al ,  dx 

Jget  echo 

cmp  al,  ready_code 

Jcheck  for  error 

jnz  rdy 

; if  not  ready  code,  start 
Jagain 

ret 

; i f  ready  code,  finish 

END  PROC  Active; 


PROC  Waiting; 

— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  SEPTEMBER  1986 

DESCRIPTION:  WAITING  AWAITS  THE  RESULT  OF  CHECK  QUEUE  * — 

— *  THERE  ARE  FOUR  POSSIBLE  REPLYS:  NOTHING  (0),  FILE  *~ 

— *  WAITING  (6),  MESSAGE  WAITING  (0Dh),  OR  RESEND  (1).  THE 
— *  REPLY  IS  AN  OUTPUT  PARAMETER  *— 


pop  ax 

Jreturn  address 

pop  di 

;status  address 

push  di 
push  ax 

Jrestore  stack 

mov  dl,  status  port 

in  al,  dx 

and  al ,  recv_rdy 

Jz  locpl0 

Jwait  for  input 

dec  dx 

; dataport 

in  al ,  dx 

Jget  input 

out  dx  ,  al 

;echo  input 
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mov  [di]  ,  al 

!store  input 

rrore? : 

inc  dx 

Js tat port,  wait  for  confirmation 

mov  tl ,  ctr 

Jload  timer 

count3: 

dec  tl 
jz  finit 

;  if  no  input  and  timer  =  0, 

; then  first  input  ok 

in  al,  dx 

and  al ,  recv_rdy 

Jwait  for  confirmation 

j  z  count3 
dec  dx 

; oops  there  was  an  error 

in  al,  dx 

!get  retransmitted  input 

out  dx,  al 

;echo  retransmitted  input 

mov  [di]  ,  al 

!store  retransmitted  input 

jmp  more7 

! go  tack  for  confirmation 

f  i  n  i  t : 

ret 

;  d  on  e 

END  PROC 

Waiting; 

PROC  Setup? 


AUTHOR:  TEONAS  V.  WORKS 
CATE:  SEPTEMBER  1986 

*  DESCRIPTION:  SETUP  TRANSMITS  TO  THE  CONCENTRATOR  THE 

CONNECTION  RECORD,  SEQUENTIALLY  ONE  BYTE  AT  A  TIME.  *— 
— *  THEN  IT  WAITS  FOR  A  REPLY!  XFER  (1),  OR  NO_XFER  (0). 

—*  TEE  REFLY  IS  A  BOOLEAN  OUTPUT  PARAMETER  *~ 


pop  ax 

!return  address 

pop  di 

Jsendrdy  address 

pop  si 

Jdata  structure  address 

push  di 

Jrestcre  stack 

push  ax 

mcv  tl , 

ctr 

Jtimeout  counter 

mov  cl  , 

2 

!length  counter 

mov  d 1 , 

io  port 

;  dataport 

start : 

mcv  al. 

[si] 

Jsend  destination  cut 

out  dx, 

al 

inc  d  x 

!statport 

herel : 

in  al , 

dx 

Jwait  for  echo 

and  al. 

recv  rdy 

jz  herel 

dec  dx 

Jdatapor  t 

in  a  1 , 

dx 

;get  echo 

cmp  al , 

[si] 

;check  for  error 

jnz  fault 

inc  si 

!go  to  next  location 

dec  cl 

Jcount  length 

jnz  start 

Jjump  until  length  =  2 

jmp  finis 

;d  one 
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fault : 

mov  al ,  error_code 

J  send  out 

error  code 

out  dx ,  al 

inc  dx 

;  statport 

here2 : 

in  a  1 ,  dx 

'.wait  for 

echo 

and  al ,  recv_rdy 
jz  here2 


dec  dx 

5  datapor t 

in  al ,  dx 

Jget  echo 

crrp  al ,  error_code 

Jcheck  to  see  if  error  code  wa 
; received 

jnz  fault 

; i f  not,  retransmit 

jmp  start 

Jretransmit  data 

finis: 

mov  al ,  block_code 
out  dx ,  al 

.send  out  block  code 

i  nc  dx 

J statport 

here3 : 

in  al ,  dx 

and  al ,  recv_r dy 

jz  here? 

.wait  for  echo 

dec  dx 

Jdatapor  t 

in  al ,  dx 

Jget  echo 

cmp  al  ,  tl ock_c ode 

Jcheck  to  see  if  block  code  wa! 
J received 

jnz  finis 

.if  not,  retransmit 

inc  dx 

J  statport 

lupe : 

in  al,  dx 

and  al ,  recv_rdy 

jz  lupe 

Jwait  for  sendrdy  result 

dec  d x 

Jdataport 

in  al,  dx 

'.get  result 

out  dx,  al 

Jecho  result 

mov  [di]  ,  al 

Jstore  result 

cmp  al ,  0 

Jcheck  for  invalid  result 

Jz  set 
cmp  al ,  1 
jz  set 


mov  [di]  ,  0 

•if  invalid,  set  sendrdy  to 

J  f al se 

set : 

inc  dx 

J  statport 

kount : 

dec  bl 
jz  allset 
in  al ,  dx 
and  al,  recv_rdy 
jz  kount 

J timeout  to  ensure  echo  receive 

dec  dx 

J  datapor  t 

in  al,  dx 

Jget  input 

out  dx ,  al 

Jecho  input 

mov  [di]  ,  al 

Jstore  input 

cmp  al,  0 
jz  set 
cmp  al ,  1 

Jcheck  for  invalid  result 
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j  Z  set 
mov  [di]  ,  0 

mov  bl ,  ctr 
jnp  kount 

all  set :  ret 

END  PROC  Setup? 


FROC  My_put? 

— *  AUTEOR:  THOMAS  V.  WORKS 
— *  DATE:  JULY  1SS6 

— *  DESCRIPTION:  MYPUT  CONVERTS  THE  INTEGER  INPUT 

PARAMETER  TO  ITS  ASCII  EQUIVALENT  AND  DISPLAYS  IT. 


offset  equ  2£h 


pop 

bx 

^return  address 

pop 

dx 

? input  value 

push 

tx 

Jrestore  stack 

mov 

Cl, 

conout_code 

add 

dl , 

offset 

Jconvert  to  ascii 

i  nt 

224 

ret 

END 

FROC 

My_put  5 

FROC 

Put 

str ; 

— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  JULY  1985 


DESCRIPTION  : 

FUT  STR  DISPLAYS  THE 

STRING  INPUT.  ' 

THE  * 

LENGTH  OE 

THE 

;  STRING 

IS  THE 

FIRST 

BYTE  OF  THE  STR 

ING.  * 

pop 

ax 

?  return 

address 

pop 

si 

;  string 

address 

push 

ax 

^restore  stack 

mov 

al , 

[si] 

•first 

value  is  string 

length 

mov 

di, 

0000 

♦set  di 

to  zero 

mov 

ah , 

00 

Jset  ah 

to  zero 

mov 

di, 

ax 

jmove  s 

tring  length  to 

d  i 

e8:  mov 

cl  , 

conout  code 

inc 

si 

?get  next  char 

mov 

dl. 

[si] 

in  t 

224 

?  output 

to  console 

dec 

di 

Jdecrement  string  length 

; if  invalid,  set  sendrdy  to 
♦false 

» timeout  aga i n 


11? 


cmp  di ,  0000 
jnz  rrorea 

ret 


.finish  when  string  length  is 
. zero 


INC  PROC  Put  str; 


PROC  Er.dmsg? 

— *  AUTHOR :  THOMAS  V.  WORKS 
— *  DATE:  JULY  1985 

DESCRIPTION:  ENDMSG  TRANSMITS  A  SEQUENCE  OF  FOUR  END  *— 

OF  MESSAGE  CODES  (0Flh)  INDICATING  END  OF  MESSAGE.  *  — 


msg_end 


equ  0Flh 


rr  c  r  e  9 : 

1 oopll  : 


rr  or  e  10  : 
c  ount4 : 


d  one3: 


pop  ax 
push  ax 

mov  oh,  4 

rnov  hi ,  ctr 

mov  dl ,  status_port 

in  el,  dx 

and  al,  recv_rdy 

jz  loopll 

dec  dx 

in  al ,  dx 

out  dx,  al 

cmp  al  ,  msg_end 

jnz  more9 

dec  ch 

jnz  more9 

inc  dx 

dec  hi 

jz  done3 

in  al ,  dx 

and  al ,  recv_rdy 

jz  count4 

dec  dx 

in  al,  dx 

out  dx,  al 

cmp  al ,  msg_end 

jz  done3 

mov  hi,  ctr 

jmp  morel0 

re  t 


Jreturn  address 
Jrestore  stacic 

Jload  message  end  counter 
;load  timer 

Jwait  for  message  end  code 


;dataport 

Jget  message  end  code 
;echo  input 
'.check  for  error 
; if  error,  get  next  input 
Jcount  message  end  codes 
;until  counter  =  0 
Jstatpor t 

; timeout  to  ensure  echo  receive 


; dataport 
Jget  input 
Jecho  input 
;one  last  check 

; i f  not  message  end  code,  time 
5  out  again 


END  PROC  EndmsgJ 
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PP.OC  Search  first; 


AUTHOR:  THOMAS  V.  WORKS 
PATE:  SEPTEMBER  19S6 

— *  DESCRIPTION:  SEARCH  FIRST  SEARCHES  FOR  THE  FIRST  #  — 

INSTANCE  OF  DIRECTORY  "ATCH,  READS  12S  EYTE  RECORD  *— 
— *  CONTAINING  HATCHED  ENTRY  INTO  DMA ,  AND  COMPUTES  OFFSET 
— *  TO  ENTRY  WITHIN  12S  BYTE  RECORD  USING  C F/M-S6  FUNCTION 
— *  #17. 

sf_code  equ  llh 

finish  dir  eau  0ffh 


pep  ax 

Ireturn  address 

pop  si 

Jdir_addr  address 

pop  di 

Jcode  address 

pop  bx 

Jtuffer  address 

pop  dx 

?f cbl  address 

push  dx 
push  tx 
push  di 
push  si 
push  ax 

?restore  stack 

mov  [si] 

,  It 

Jsave  buffer  address 

mov  cl, 

sf _code 

int  224 

[si] 

;search  for  first  directory 
Jmatch 

rrov  tx. 

Restore  buffer  address 

rrov  [di] 

,  ax 

;store  results  of  search  in 
Jcode 

emp  al, 

f inish_dir 

Jare  we  at  the  end  of  the 
;  directory 

jz  done4 

; i f  yes,  done 

rrov  cl  , 

32 

Jdirectory  match  offset  = 

mul  cl 

;buffer  address  +  (32  *  search 
;  result ) 

add  bx , 

ax 

mov  [si] 

re  t 

,  bx 

Jstore  directory  match  offset 
;  i n  dir_addr 

END  PROC  Search  first; 


PROC  Search_next; 

— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  SEPTEMBER  1966 

— *  DESCRIPTION:  SEARCH_NEXT  SEARCHES  FOR  THE  NEXT 
— *  INSTANCE  OF  DIRECTORY  MATCH,  READS  128  BYTE  RECORD  *— 
— *  CONTAINING  MATCHED  ENTRY  INTO  DMA,  AND  COMPUTES  OFFSET  *~ 


119 


TC  ENTRY  WITHIN  128  BYTE  RECORD  USING  CP/M-86  FUNCTION  *- 
#18,  UNTIL  END  OF  DIRECTORY  IS  REACHED  ( OFFh )  .  *- 


sn  code 


equ  12h 


pop  ax 

•return  address 

pop  si 

Jdir_addr  address 

pop  ii 

Jcode  address 

pop  bx 

Jbuffer  address 

pop  dx 

;f cbl  address 

push  dx 

Jrestore  stack 

push  tx 

push  di 

nush  si 

push  ax 

mov  [sil  ,  bx 

?save  buffer  address 

mov  cl,  sn  code 

ir.t  224 

Jsearch  for  first  directory 

; match 

mov  tx,  [si] 

Jrestore  buffer  address 

ncv  [di]  ,  ax 

Jstore  results  of  search 

;in  cede 

cmp  al ,  finish  dir 

;are  we  at  the  end  of  the 

;  directory 

jz  dcne5 

;  i f  yes,  done 

mov  cl,  32 

Jdirectory  match  offset  = 

mul  cl 

Jbuffer  address  +  (32  *  search 

; result ) 

add  bx,  ax 

mov  [si]  ,  tx 

;store  directory  match  offset 

Jin  dir_addr 

dor.e5:  ret 

END  PROC  Search_next; 

PROC  End_bl ockJ 

— *  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  SEPTEMBER  1986 

~! *  DESCRIPTION:  END  BLOCK  TRANSMITS  A  SEQUENCE  OF  FOUR  *— 

— *  END  OF  BLOCK  CODES  ( 0FFh ) 

INDICATING  END  OF  BLOCK.  *~ 

pop  ax; 

Jreturn  address 

push  ax 

Jrestore  stack 

mov  ch,  4 

Jyes  code  counter 

mov  dl ,  i o_por  t 

Jsend  out  yes  code 

morel2:  mov  al ,  block_code 

out  dx,  ax 

i  n  c  d  x 

J  statport 

loop  12:  in  al,  dx 

Jwait  for  echo 
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and  al,  recv_rdy 
jz  loopl2 
dec  dx 
in  al ,  dx 

cmp  al ,  bl ock_ccde 

jnz  error6 

dec  ch 

jnz  mcrel2 

ret 

errorS:  nov  al,  block_ccde 

out  dx,  al 
i  n  c  d  x 
jmp  locpl2 

EN^  PROC  End  block; 


PROC  Send_string; 


»dat apor t 

Jget  echo 

Jcheck  for  error 

; if  error,  retransmit 

;dc  again  until  counter  =  0 


'.retransmit 
*  statport 


AUTHOR:  THOMAS  V.  WORKS 
— -  DATE:  SEPTEMBER  1S86 

— *  DESCRIPTION:  SEND  STRING  TRANSMITS  A  STRING  INPUT, 
SEQUENTIALLY  ONE  B?TE  AT  A  TIME.  THE  ADDRESS  OF  THE 
— *  STRING  IS  AN  INPUT  PARAMETERS.  THE  LENGTH  IS  THE 
FIRST  BYTE  OF  THE  STRING. 


pop 

ax 

pop 

si 

push  ax 

mov 

al. 

[si] 

mov 

di 

,  0000 

mov 

ah. 

00 

mov 

di. 

ax 

mov 

dl. 

io_port 

inc 

si 

1 ooplb : 

mov 

al , 

[si] 

out 

dx , 

al 

inc 

dx 

1 oopla : 

i  n 

al. 

dx 

and 

al. 

recv  rdy 

jz 

loopla 

dec 

dx 

in 

al. 

dx 

cmp 

al , 

[si] 

jnz 

error? 

inc 

si 

dec 

di 

jnz 

1 OOplb 

Jrcp 

d  one6 

Ireturn  address 
.string  address 
; restore  stack 

Jfirst  char  is  string  length 
Jset  up  and  store  string  length 
; in  di 


{increment  to  first  char 

.send  cut  char 

;  statport 
{wait  for  echo 


{dataport 
;get  echo 
{check  for  error 

5get  new  char 

{decrement  length 

;do  again  until  length  =  0 
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error?: 

mov  al ,  err or_c ode 

out  dx,  al 

Jtell  receiver  error  in 
transmission 

i nc  dx 

Istatport 

1 oopld  : 

in  al,  dx 

and  al ,  recv_rdy 

jz  loopld 

?wait  for  echo 

dec  dx 

Jdatap  or t 

in  al ,  dx 

cmp  al ,  error_code 

Icheck  to  see  if  error  code  wa: 

; received 

jnz  error? 

;  if  not,  retransmit  error  code: 

e  rrorS  : 

mov  al ,  error_ccde 
out  dx,  al 

Jsend  second  error  code 

inc  dx 

; statpor  t 

1 coplc  : 

in  al ,  dx 

and  al ,  recv_rdy 

jz  looplc 

Jwait  for  echo 

dec  dx 

>'dataport 

in  al ,  dx 

cmp  al,  error_coie 

Jcheck  to  see  if  error  code  wa 
; received 

jnz  error8 

5  if  not,  retransmit  error  code 

jmp  locplh 

; retransmit  char 

d  cne6 : 

ret 

;d  one 

END  PROC  Serd  string; 

PROC  Send_dir5 

— *  AUTHOR:  THOMAS  V.  WORKS 
DATE:  SEPTEMBER  1986 

DESCRIPTION:  SEND  DIR  TRANSMITS  A  DIRECTORS  ENTRY  CF  *— 

PREDEFINED  LENGTH  TBT  CONSTANT  INPUT  PARAMETER).  THE  *— 
— *  ADDRESS  OF  THE  ENTRY  IS  THE  OTHER  INPUT  PARAMETER.  *— 


pop  ax 

Ireturn  address 

pop  tx 

Jdata  structure  length 

pop  si 
push  ax 

Jdata  structure  address 

mov  dl,  io_port 

Jdataport 

1 oop2h  : 

mov  al ,  [si] 
out  dx,  al 

Jsend  out  char 

inc  dx 

;  statport 

1 oop2a : 

in  al ,  dx 

and  al,  recv_rdy 

jz  loop2a 

Jwait  for  echo 

dec  dx 

; datapor  t 

in  al,  dx 

Jget  echo 

cmp  al ,  [si] 
jnz  error9 

,* check  for  error 
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ire  si 

Jget  new  char 

dee  L x 

Jdecrement  length 

jnz  loop2t 
jrnp  done? 

; d o  again  until  length  =  2 

e rr or9 : 

mov  al ,  error_code 

Jtell  receiver  error  in 

J  transmission 

out  dx,  al 
inc  dx 

J  statport 

1 oop2d  : 

in  al ,  dx 

and  al  ,  reev _rdy 

Jwait  for  echo 

jz  loop2d 
dec  dx 

Jdatapor t 

in  al,  dx 

Jcheck  to  see  if  error  cede 
; received 

W  8. 5 

emp  al ,  error_eode 

jnz  error9 

; if  not,  retransmit  error  code 

errorlO : 

mev  al,  error_code 
out  dx,  al 

Jsend  second  error  code 

inc  dx 

; statport 

1 ccp2c  : 

in  al ,  dx 

and  al ,  r ecv_rdy 

jz  loop2c 

Jwait  for  echo 

dec  dx 

Jdataport 

in  al ,  dx 

Jcheck  to  see  if  error  code 
; received 

was 

errp  al ,  error_code 
jnz  errorlO 

Jif  not,  retransmit  error  co 

de 

jrrp  locp2t 

J retransmit  char 

d cne7: 

ret 

J  d  one 

END  PROC 

Send  dir! 

PROC  Driveout: 

— *  AUTHOR:  THOMAS  V.  WORKS 
DAT! :  SEPTEMBER  1986 

— *  DESCRIPTION:  DRIVEOUT  TRANSMITS  THE  BYTE  EQUIVALENT 
— *  CE  THE  DRIVE  OF  THE  TRANSMITTED  DIRECTORY. 


pop  ax 

Jreturn  address 

pop  Lx 

Jdrive  value 

push  ax 

Jrestore  stack 

d  ou  t : 

rrov  dl ,  i  o_por  t 
mov  al ,  Ll- 

;  da  tapor  t 

out  dx,  al 

J  sen  d  out  drive 

inc  dx 

; statport 

1 oopl3  : 

in  al,  dx 

and  al,  re^v^dy 

jz  loopl3 

Jwait  for  echo 

dec  dx 

J  datapor  t 

in  al ,  dx 

Jget  echo 
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crrp  al,  bl  '.check  for  error 

jnz  dout  .if  error,  start  again 

ret  ; i f  not ,  f ini sh 

END  FP.OC  Driveout; 


PROC  Driveir; 

— *  AUTHOR:  THOMAS  V.  WORKS 
TATI:  SEPTEMBER  1995 

DESCRIPTION:  DRIVEIN  RECEIVES  THE  BYTE  EQUIVALENT  OF  *  — 

THE  DRIVE  OE  THE  TRANSMITTED  DIRECTORY.  *- 


pop  ax 

;return  address 

pep  di 

Jaddress  for  drive 

push  di 
push  ax 

Restore  stack 

mov  bl ,  c t r 

rrov  dl ,  status  port 

Jtimeout  counter 

1 copl5 : 

in  al ,  dx 

and  al,  reov_rdy 

j  z  loopl5 

;wait  for  incoming  go  code 

dec  dx 

Jdataport 

in  al,  dx 

•get  input 

out  dx,  al 

Jecho  input 

rrov  fdi]  ,  al 

?store  input 

m orelS  : 

ir.c  dx 

5  s  ta  tp ort 

c  ountS : 

dec  bl 

Jtimeout  to  ensure  echo  was 
received 

jz  donee 

Jfinisb  if  counter  =  0  ard 
Ino  char  received 

i  r.  a  1 ,  d  x 

and  al,  recv_rd,y 

j  z  counts 

5wait  for  input 

dec  dx 

; datapor t 

in  al,  dx 

♦get  input 

out  dx,  al 

'.echo  input 

emp  al  ,  [di] 

;one  last  check 

jz  donee 

; i f  not  error  , finish 

mov  bl ,  ctr 
jmp  morel2 

; if  error,  do  again 

d  oneS: 

ret 

END  PROC 

Dri vein ; 

proc  off; 


— *  AUTHOR:  THOMAS  V.  WORKS 
_ ^ A T E  t  PTEl^EER  19S6 

— *  DESCRIPTION:  OFF  TRANSMITS  THE  OFF  CODE  (0Fh) 
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INDICATING  TO  THE  CONCENTRATOR  A  TERMINAL  IS  NO  LON  TER 
ACTIVE. 


off_code  equ  0Fh 

pop  ax 
push  ax 

rrov  dl ,  i o_por t 
mov  al ,  of f_code 
out  dx  ,  al 
ret 

END  PROC  Off? 
rr  a  i  n  : 

END  Myasmlit? 


;return  address 
?restore  stack 

?send  out  off  code 


WITH  Xferfile,  Messages,  Myasmlit,  Directry, 
Who,  Myutil,  Bulltrd,  Names? 

PACKAGE  EODY  Xfermain  IS 

USE  Xferfile,  Messages,  Myasmlit,  Directry, 
Who,  Myutil,  Bulltrd,  Names? 


_ 5jc  ;J:  ######__ 

MAIN  PROGRAM 

o#  X  «J#  vu  J/  j/  JU  J#  JU  o> 

^  ^  A  A 


status  : 

ty  te  ? 

c  trl_f : 

CONSTANT 

BYTE 

= 

ty  te 

( 16&06# ) ; 

ctrl_m  t 

CONSTANT 

BYTE 

= 

ty  te 

(16#0D#)? 

ctrl_d  : 

CONSTANT 

BYTE 

= 

tyte 

( ie#04#) ; 

resend : 

CONSTANT 

BYTE 

- 

ty  te 

( 16#01#  )? 

ctrl_l  : 

CONSTANT 

BYTE 

= 

byte 

( 15#0C# ) ; 

c trl_r  : 

CONSTANT 

BYTE 

= 

tyte 

(i6#i2#); 

c  trl _s  : 

CONSTANT 

BYTE 

- 

tyte 

(ie#i3#); 

c trl ^t : 

CONSTANT 

BYTE 

tyte 

( I5#i 4# ) ; 

c  trl_x  : 

CONSTANT 

BYTE 

= 

tyte 

( ie#is# ) ; 

c  t  r  1  _w  : 

CONSTANT 

BITE 

= 

tyte 

( 16#17# ) ; 

c  trl_g : 

CONSTANT 

BYTE 

= 

tyte 

( i6#07# ) ; 

c trl_p  : 

CONSTANT 

BYTE 

= 

tyte 

(ie#i0#); 

Ctrl  t : 

CONSTANT 

BYTE 

- 

tyte 

(ie#02#); 

BEGIN 

Clearscrn? 

Put  ("Welcome  to  the  NPS  Computer  Science  Latratory  )? 
Put  ("Local  Area  Network!")? 
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New_line;  Nev_line; 

Put " ( "Executi on  Begins.  Version  1.3");  New_line; 

LOOP 

Put  ("WAITING  TO  PE  POLLED...");  New_lineJ 

— -  SEND  OUT  ACTIVE  CODE  (0D0h)  AND  WAIT  FOR  REPLY  *~ 

Active? 

Put  ("CHECKING  FOR  INCOMING  FILE  OR  MESSAGE:.");  New_lin 
Wai t irg  ( s ta  tus  ) ; 

New_l ine ; 

CASE  status  IS 
WHEN  byte  (0) 

=>  Put  ("NO  FILE  OR  MESSAGE  INCOMING.");  New_line; 
WHEN  ctrl_f 

=>  Put  ("FILE  READY  TO  RECEIVE.  PLEASE  RECEIVE  IT  ") 
Put  ("BEFORE  PROCEDING. ”) ;  New  line; 

Put  ("FAILURE  TO  DO  SC  WILL  CAUSE  UNPREDICTABLE  " 
Put  ("RESULTS");  New_li ne ; 

WHEN  ctrl_m 

=>  Put  ("MESSAGE  READY  TO  RECEIVE.  PLEASE  RECEIVE  ") 
Put  ("IT  EEFORE  PROCEDING.”);  New  line: 

Put  ("FAILURE  TO  DO  SO  WILL  CAUSF~UNPRED ICT ABLE  " 
Put  ("RESULTS");  New_line; 

WHEN  c trl_d 

=>  Put  ("directory  ready  to  receive,  please  receivf" 

Put  ("  IT  BEFORE  PROCEDING.");  New_line; 

Put  ("FAILURE  TO  DO  SO  WILL  CAUSE  UNPREDICTABLE  " 
Put  ("RESULTS");  New_line; 

WHEN  resend 

=>  Fut  ("DESTINATION  FOR  YOUR  PREVIOUS  SESSION  IS  ") 
Put  ("NOW  ACTIVE.  PLEASE  RESEND.");  Nev_line; 

Put  ("FAILURE  TO  DO  SO  WILL  CAUSE  UNPREDICTABLE  " 
Put  ("RESULTS");  Nev_line; 

END  case; 

New_l i ne ; 

— *  USER  MAIN  MENU 

Put  ("CTRL_S  =  SEND  FILE  ”);  New  line; 

Put  ( " CTRL_R  =  RECEIVF  FILE  ");  New  line; 

Put  ( " CTRL_T  =  SEND  MESSAGE  (TALK)  ") 5  New_linel 
Put  ("CTRL  L  =  RECEIVE  MESSAGE  (LISTEN)  ");  New_line? 
Put  ( " CTRL_P  =  SEND  DIRECTORY  ");  New  line; 

Fut  ( " CTRL_G  =  RECEIVE  DIRECTORY  ");  New_line; 

Fut  ("CTRL  W  =  GET  MET  STATUS  (WHO)  ");  New  line; 

Fut  ("CTRL-B  =  RECEIVE  BULLETIN  BOARD  " ) ;  New_line5 
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New_ 1 i  ne ; 

\'ew_line ; 

Put  ( "INTER  INPUT 
Key i n  ( i nput ) ; 
New_li ne ? 

CASE  input  IS 


WHEN 

Ctrl 

_s 

=> 

Sendf  i  1  e ; 

WHEN 

Ctrl 

r 

=> 

Receivef i le ; 

WREN 

Ctrl 

t 

=> 

Talking  ? 

WHEN 

Ctrl 

_1 

-\ 

/ 

Li steni ng ; 

WEEN 

Ctrl 

> 

=> 

Wh  os  _ there ; 

WHEN 

Ctrl 

=  > 

Receive_dir? 

WHEN 

Ctrl 

_p 

=> 

Presen  t_dir  ? 

WHEN 

Ctrl 

t 

=> 

Recv  bulletin; 

WHEN 

OTHERS 

=> 

null; 

case; 

("CTRL  X 

— 

EXIT.  ANYTHING  ELS 

ENT 
Put 

Keyi n  ( input ) i 
EXIT  WHEN  input 
Clearscrn  ? 


TO  CONTINUE.") 


=  Ctrl  x ; 


— *  LOOP  CONTINUOUSLY  UNTIL  USER  EXITS  *  — 
ENE  loop; 

— *  TELL  CONCENTRATOR  NO  LONGER  ACTIVE 


Off? 

END  Xfermain; 


WITH  Kyasmlib,  Kyutil,  Names? 

PACKAGE  EOCY  Bulletin  IS 

USE  Myasmlib,  Kyutil,  Narres? 

--**  BULLETIN  BOARD  ** — 

rrax_rr.sg_l ength :  CONSTANT  :=  1600? 
max_rrsg7  CONSTANT  :=  20; 

receive:  CONSTANT  BYTE  :=  byte  (16#0D#);  — CTRL_M-- 

send:  CONSTANT  BYTE  :=  tyte  (16#02#);  — CTRL_3 — 

TYPE  msg  IS 
RECORD 

message:  ARRAY  (1 . .max_msg_length )  OF  byte? 
msg_length:  Integer? 

END  record; 

msg_list:  ARRAY  (l..max_msg)  OF  msg? 
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command:  byte* 

msg_court:  Integer  :=  ?■’, 

byte_count:  Integer  :=  0; 

msg_tl  ock  :  ARRAY  ( 1 . .  bl  ock_s  i  ze  )  CF  byte; 


BEGIN 

Cleerscrn? 

Fut  ("NFS  COMPUTER  SCIENCE  LABRATOF.Y  BULLETIN  BOARD."); 
New_line5  New  line; 

LOOP 

— *  TELL  CONCENTRATOR  BULLETIN  BOARD  ACTIVE  AND  to AIT  *- 
— 1 *  FOR  REPLY  *- 


Active; 


MESSAGES  INCOMING  OR  REQUEST  TO  SEND? 


Waiting  (comnand); 

IF  command  =  receive  THEN 

msg_count  :=  nsg_count  +  i; 

— -  RECEIVE  MESSAGES  UNTIL  MSG  COUNT  =  20  *~ 


Recv  block 


EndmsgJ 
Put  (  * 


); 


ELSIE  command 


( msg_lis  t ( msg_c  cunt ) .message 'ADDRESS , 
msg_list(ms g_count). ms g_ length); 


=  send  THEN 


— *  SEND  ALL  MESSAGES  CURRENTLY  ON  BOARD 

FOR  i  IN  l..msg_count  LOOF 
tyte  count  :=  0J 
LOOP" 


FORMAT  MESSAGES  IN  128  BYTE  BLOCKS  FOR  *- 
— *  TRANSMISSION.  FOR  EACH  MESSAGE  SEND  *- 

— -  UNTIL  EYTE_COUNT  =  M5G_LENGTH  THEN  ADD  *- 
*  BLANKS  AS  NECESSARY  TO  FILL  IN  LAST  128  *- 
— *  BYTE  BLOCK.  SFND  NEXT  MESSAGE  UNTIL  ALL  *- 
— ! *  MESSAGES  ARE  SENT 

FOR  j  IN  1 . . block_size  LOOP 

byte_cour.t  :=  byte_count  +  1? 

IF  hyte_count  >  msg_l i s t ( i ) .msg_length  THFN 
msg  block  (j)  :=  space; 

ELSE 

msg_bl ock  ( j  )  :  = 

msg_l  ist(i)  .mes  sage  (byte_c  our.t ) 

end  if; 
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END  loop; 
no; 

Send_tlork  (rr.sg_tloclc  'ADDRESS  ,  hi ock_si  ze  ) ; 
EXIT  WHEN  tyte_count  >  msg_l ist ' i ) .msg_l ength ; 
END  loop; 

END  LOOP;  —  KSG_COUNT  — 

Yes; 

END  I?;  —COMMAND  — 

END  loop;  -MAIN- 
END  Bulletin; 


The  following  hatch  file  (xfer.sut)  is  used  to  compile  the 
preceding  programs: 

era  myutil.sym 
era  my asm lit. sym 
era  xferfile.sym 
era  messages. sym 
era  directry .  sym 
era  who. sym 
era  tulltrd.sym 
era  names . sym 
era  myutil.jrl 
era  myasmlit.jrl 
era  xferfile.jrl 
era  messages . jrl 
era  directry. jrl 
era  who. jrl 
era  tulltrd.jrl 
era  xf ermain .  j rl 
era  xf ermain . cmd 
janus  names. spc 
ja.nus  myutil.spc 
janus  myasmlit.spc 
janus  xferfile.spc 
janus  messages . spc 
janus  directry. spc 
janus  who. spc 
janus  tulltrd.spc 
janus  myutil 
jasmS6  myasmlit 
janus  xferfile 
janus  messages 
jarus  directry 
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jar. us  who 
janus  bullbrd 
janus  xferrrair. 
jlink  xferrain 
era  bulletin. jrl 
era  bulletin.cmd 
janus  bulletin 
jlink  bulletin 


APPENDIX  E 


LISTING  OF  CONCENTRATOR  PROGRAMS 


PACKAGE  Ccncnarre  IS 

— -  GLOPAL  TYPES,  CONSTANTS,  AND  VAR IAELFS  *— 

TYPE  pr ccess_status  IS 
RECORD 

sourceport:  Integer? 
destport:  Integer.* 
process_type :  byte? 

END  record; 

rax  _que :  CONSTANT  :=  552 ;  --FOR  24  TERMINALS-- 
TYPE  que  IS  ARRAY  (l..max_que)  OF  pr oces s_s tatus 5 
queue:  que; 

resend:  CONSTANT  BYTE  :=  tyte  (16#01#); 
zero:  CONSTANT  ^YTE  :=  tyte  (0); 
rachno:  CONSTANT  :=  24; 
ready :  E colean ; 

active_list:  ARRAY  (l..machnc)  OF  Eoolean; 

END  Conor. are; 


PACKAGE  C or.cuti  1  IS 

PROCEDURE  Check_queue  (numter_que:  IN  Integer; 

pert:  IN  I nt eger . 
oue_id:  OUT  Integer? 
result_que:  OUT  Boolean); 
PROCEDURE  Net_stat  (destination:  IN  Integer); 

END  Concutii; 


WITH  Coasmlib,  C onename ; 

FACKAGE  BODY  Concutii  IS 
USE  Coasmlit,  Concnaire; 

PROCEDURE  Check_queue  (number_que:  IN  Integer? 

port:  IN  Integer? 
que_id:  OUT  Integer? 
result_que:  OUT  Boolean)  IS 
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AUTHOR:  T HO PAS  V.  WORKS 
DATE:  SEPTEMBER  1986 

DESCRIPTION:  CHECK  QUEUE  CHECKS  THE  CUIUE  FOR  WAITING  *- 
PROCESSES  AND  TELLS  SOURCE  AND  DESTINATION  WHAT,  IF  *- 

ANYTHING,  IS  WAITING.  BOOLEAN  RESULT  OF  TFE  CHECK  IS  *- 
AN  OUTPUT  PARAMETER.  *- 

BEGIN 

IE  numter_que  =  0  THEN 

— *  NOTHING  IN  QUEUE  *  — 

result_que  :=  false; 

Queue_status  (port,  zero); 

ELSE 

FOR  i  IN  1 . . (nurter_que  +  1)  LOOP 
IF  queue  (i).destport  =  port  THEN 
que_id  :=  i? 
result_que  :=  true? 

EXIT? 

END  IF? 
que_id  :=  i? 

END  loop; 

IF  que_id  =  (nurrter_que  +  1)  THEN 

*  NOTHING  IN  QUEUE  FOR  POLLED  PORT  *— 

result_que  :=  false? 

Queue  status  (port,  zero)? 

ELSE 

FOR  i  IN  1. .255  LOOP 
FOR  j  IN  1 . .255  LOOP 

DELAY  FOR  SOURCE  *~ 

null; 
end  loop; 
end  loop; 

— *  POLL  SOURCE  OF  WAITING  PROCESS  *~ 

Cheok_port  (queue(queue_id) . sourceport ,  ready); 

IF  ready  THEN 

— *  TELL  POLLED  PORT  WHAT  IS  WAITING  FOR  IT  #  — 
Queue_status  (port,  queue  (que_id  ).  prccess_t.ype) 
TFLL  SOURCE  OF  WAITING  PROCESS  TO  RESEND  *- 
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Cueue_st  atus  (queue(que  id ) . sou rcepo r t ,  resend) 
ELSE 

TELL  POLLED  PORT  TO  GO  AHEAD 

result_que  :=  false? 

Cueue_status  (port,  zero)? 

END  IF? 

END  IF? 

END  IF? 

END  Check_queue? 


PROCEDURE  Net_stat  (destination:  IN  Integer)  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 
— 5 *  DATE:  SEPTEMBER  1986 

— *  DESCRIPTION:  NET_STAT  CHECKS  THE  ACTIVE_LIST  FOR  * — 

— -  ACTIVE  PORTS,  PLACES  LIST  OF  ACTIVE  PORTS  IN  WHOJLIST, 

— -  AND  TRANSMITS  DATA  TO  REQUESTING  TERMINAL.  *— 

wnum:  Integer  :=  0? 
who_length:  Integer  :=  0? 

who_list:  ARRAY  (l..machno)  OF  tyte? 

BEGIN 

FCR  i  IN  l..machno  LOOP 

IF  active_list  (i)  =  true  THEN 

— *  PLACE  ACTIVE  PORTS  IN  WHO  LIST  *~ 

wnum  :=  wnum  +  1? 

who_list  (wnum)  :=  tyte  ( i ) ? 

who_length  :=  who_length  +  1? 

END  IF? 

END  LCCP? 

Ser.d_who_tlock  (destination,  wh o_l i st 'ADDRESS  , 

who_length) ? 

END  Ne  t_s tat  ? 

END  Concutil? 


PACKAGE  Coasmlit  IS 

PROCEDURE  Check_port  (prt:  IN  Integer?  rdy:  OUT  Boolean)? 
PROCEDURE  Connect  (prt:  IN  Integer?  addr:  IN  Integer)? 


1  "ST 

X  ^  ^ 


PROCEDURE  Queue_status  (prt:  IN  Integer;  proc:  IN  byte); 
PROCEDURE  Send_who_bl ock  (dest:  IN  Integer!  addr:  IN'  Integer 

len:  IN  Integer) J 

PROCEDURE  Broadcast  (s_prt:  IN  Integer!  t_input:  OUT  byte); 
PROCEDURE  Conoxfer  (s  prt:  IN  Integer!  d  prt:  IN  Integer); 
PROCEDURE  Xfer  (s_prtT  IN  Integer); 

PROCEDURE  No_xfer  (s_prt:  IN  Integer); 

END  Coasmlit; 


PACKAGE  ASSEMBLY  Coasmlib 


jmp  main 

PROC  Check_port! 

AUTHOR:  THOMAS  V.  WORKS 
-- -*  DATE:  SEPTEMBER  1985 

— *  DESCRIPTION:  CHECK_PORT  CHECKS  THE  PORTS  OF  THE  * 

— -  NETWORK  LOOKING  FOR  THE  ACTIVE  CODE  (0D0h).  IT  TIMES  * 
— *  OUT  IF  THERE  IS  NO  RESPONSE.  CHECK  PORT  ALSO 
DETERMINES  IF  A  DESTINATION  FORT  IS'ACTIVE.  THE 
BOOLEAN  RESULT  IS  THE  OUTPUT  PARAMETER. 


ready_ccde  equ 

0D0h 

recv_rdy 

equ 

02h 

timer 

equ 

10h 

pop  ax 
pop  di 
pop  dx 
push  dx 
push  di 
push  ax 

again: 

inc  dx 

mov  tl ,  timer 

1 oop3: 

dec  bl 

j z  nxtprt 
in  al ,  dx 

and  al,  recv  rdy 

jz  loop3 
dec  dx 

in  al,  dx 
out  dx,  al 

cmp  al,  ready_code 

jnz  again 

more : 

inc  dx 

mov  bl,  timer 

time : 

dec  bl 
jz  thsprt 

!return  address 
;data  address 
Jdataport 

Jrestore  stack 


5  s  ta  tport 
!load  timer 

!go  to  next  port  if  no  input 
;check  for  input 


; datapor t 

!get  input 

!echo  input 

Jcheck  for  error 

•if  error,  get  new  input 

;  statpcrt 

Jload  timer 

Jtimer  to  ensure  echo  receive 
Jgo  to  this  port  if  timer  =  Z 
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#  * 


in  al,  dx 

and  al ,  recv_rdy 

Jz  time 

dec  dx 

in  a  1 ,  d x 

out  dx ,  al 

crrp  al ,  ready_code 

Jnz  more 

thspr  t :  mcv  [d  i]  ,  01 
ret 

nxtprt :  mov  Tdi]  ,  00 

re  t 


JchecK  for  input 


Idataport 

Jget  input 

Jecho  input 

Jcheck  for  error 

; i f  error  get  new  input 

?set  ready  to  true 

Jset  ready  to  false 


END  PP.OC  Check_portr 


PROC  Connect; 

— *  AUTHOR:  THOMAS  V.  WORKS 
DATE:  AUGUST  1986 

— *  DESCRIPTION:  CONNECT  RECEIVES  THE  CONNECTION  RECORD 
FROM  SETUP. 


error_ccde  equ  0EFh 

finish_code  equ  0FFh 


here4: 

pop  ax 
pop  di 
pop  dx 
push  ax 

i  nc  dx 
in  al,  dx 

and  al,  recv_rdy 
jz  here4 
dec  dx 

in  al ,  dx 
out  dx ,  al 
crrp  al,  error_code 
jz  errors 

cmp  al,  finish_code 

jz  done 

mov  fdi]  ,  al 

inc  di 

inc  dx 

jmp  here4 

errors :  dec  di 
inc  dx 

here5:  in  al,  dx 

and  al ,  recv_rdy 
jz  here5 
dec  dx 


?return  address 

Jdata  structure  address 

Jdataport 

?restore  stack 

J  s  ta  tpor  t 
Wait  for  data 


; dataport 
Jget  data 
;echo  data 

Jcheck  for  error  code 

Jcheck  for  finish  code 

?store  data 
Jgo  to  next  location 
; statport 
; get  next  data 

Jgo  hack  to  previous  position 
>  statport 

Wait  for  retransmitted  data 


Jdataport 
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done: 


in  al ,  dx 
out  dx,  al 
rrov  [di]  ,  al 
i nc  di 
inc  dx 
jrrp  here4 

ret 

END  PROC  Connect? 


*get  retransmitted  data 
Jecho  retransmitted  data 
Joverwrite  bad  data 
;go  to  next  location 
;statport 
Jget  next  data 


PROC  Oueue_status ; 

— *  AUTHOR:  TEONAS  V.  WORKS 
— *  DATE:  SEPTEMBER  1986 

DESCRIPTION:  QUEUE  STATUS  TELLS  THE  SOURCE  AND 

— *  DESTINATION  PORTS  ABOUT  THE  PROCESSES  WAITING  IN  THE 
— *  QUEUE. 


pep  ax 

Jreturn  address 

pop  dx 

; dataport 

pop  si 

Jvalue  of  queue  status 

push  ax 

Jrestore  stack 

redo: 

mov  ax,  si 

out  dx,  ax 

;send  out  queue  status 

inc  dx 

;  sta  tport 

loop5: 

in  al,  dx 

and  al,  recv_rdy 

jz  loop5 

jwait  for  echo 

dec  dx 

» dataport- 

in  al,  dx 

5get  echo 

emp  ax,  si 

Jcheck  for  error 

jnz  redo 

;  if  error,  retransmit 

ret 

»if  not,  finish 

END  PROC 

Queue_status  5 

PROC  Send  who  block; 


AUTHOR:  THOMAS  V.  WORKS 
DATE:  SEPTEMBER  1966 

DESCRIPTION:  3END_WHO_BLOCK  TRANSMITS  THE  LIST  OF 

— *  ACTIVE  PORTS  FOLLOWED  BY  A  SEQUENCE  OF  FOUR  FINISH  #~ 

~ *  CODES  (OFFh)  INDICATING  END  OF  LIST  TO  THE  REQUESTING  *  — 
TERMINAL. 


pep  ax 
pop  bx 
pop  si 
pop  dx 
push  ax 


Jreturn  address 
Jlength  of  data  structure 
;data  structure  address 
destination  port  (data) 
?restore  stack 
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mov  ch,  4 

1 oopb : 

mov  al ,  [si] 
out  dx,  al 
inc  dx 

loopa: 

in  al,  dx 

and  al,  recv_rdy 

jz  lcopa 

dec  dx 

in  al,  dx 

cmp  al,  [si] 

jnz  errorl 

i nc  si 

dec  hx 

jnz  loopb 

jmp  over 

errcrl  : 

mov  al,  error_code 
out  dx,  al 
inc  dx 

1 oopd : 

in  al ,  dx 

and  al,  recv_rdy 

jz  loopd 

dec  dx 

in  a  1 ,  dx 

cmp  al ,  error_code 
jnz  errorl 

e  rr or2 : 

mov  al ,  error_code 
out  dx,  al 
inc  dx 

1 oopd2 : 

in  al,  dx 

and  al ,  recv_rdy 

jz  loopd2 

dec  dx 

in  al ,  dx 

cmp  al ,  error_c ode 
jnz  error2 
jmp  loopb 

over : 

mov  al,  finish_code 
out  dx ,  al 
i nc  dx 

1 oopc : 

in  al ,  dx 

and  al,  recv_rdy 

jz  loopc 

dec  dx 

in  al,  dx 

cmp  al,  finish_ccde 
jnz  error3 
dec  ch 
jnz  over 
re  t 

;finish_code  counter 
;send  out  char 

;  statport 
?wait  for  echo 


Jdataport 
Jget  echo 
Jcheck  for  error 

Jget  new  char 

Jdecrement  length 

Jdo  again  until  length  =  @ 


Jerror  in  transmission 

J  s  ta  tpor t 
Jwait  for  echo 


; datapor  t 

Jwas  error  code  received 

; if  not,  retransmit  error  code 
Jsend  second  error  code 

J statport 
Jwait  for  echo 


J datapor t 

Jwas  error  code  received 

» i f  not,  retransmit  error  code 
Jretransmit  char 

lend  of  transmission 

J  statport 
Jwait  for  echo 


Ida  tapor  t 
Jget  echo 
Jcheck  for  error 

Jsend  out  next  finish  code 
Juntil  four  are  sent  out 
J  d  one 
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error3:  mov  al ,  finish_ccde 


out  dx,  al 
inc  dx 
jmp  loopc 


;  ret  ransmit 
; statport 
(check  again 


END  PROC  Send  who  block? 


PROC  Broadcast? 

— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  SEPTEMBER  1986 

— *  DESCRIPTION:  BROADCAST  TRANSMITS  DATA  RECEIVED  FROM 
THE  SOURCE  TO  ALL  ACTIVE  DESTINATION  TERMINALS, 

— *  BYPASSING  THE  SOURCE  AND  THE  BULLETIN  BOARD  PORTS.  A 

BYTE  IS  RECEIVED  FROM  THE  SOURCE  AND  TRANSMITTED  TO  *— 
— ! *  EACH  DESTINATION,  THEN  BROADCAST  CHECKS  EACH  ECHO  FOR 
ERROR.  BROADCAST  FINISHES  WHEN  IT  RECEIVES  A  SEQUENCE 
— *  CF  FOUR  FINISH  CODES  (0Flh)  FRCM  EACH  DESTINATION. 

portnum  equ  08h 

toardnurr  equ  ?3h 

ctr  equ  04h 

portone  equ  0100h 

bullport  equ  01SCh 


pop  ax 
pop  di 
pop  si 
push  si 
push  di 
push  ax 


(return  address 
(temporary  input  holder 
(source  port  (data) 
(restore  stack 


mov  ch,  0 
mov  cl,  ctr 
mov  hi ,  portnum 
mov  bh,  boardnum 
mov  dx,  si 


(load  error  code  counter 
(load  finish  code  counter 


(load  source  port 
;  statport 
(wait  for  input 


nextch:  inc  dx 

l_one:  in  al,  dx 


and  al,  recv_rdy 
Jz  l_one 
dec  dx 
in  al,  dx 
mov  [di]  ,  al 
mov  dx,  portone 


(dataport 
(get  input 
(store  input 

Jload  first  destination  port 
(do  not  send  to  source  pert 


l_two:  emp  dx ,  si 


jz  skip 

emp  dx,  bullport 
jz  skip 
out  dx ,  al 


(send  input 

(next  destination  port 


,*or  to  bulletin  board  port 


skip:  add  dx ,  4 
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dec  bl 
jnz  l_two 

Jcontinue  sending  until  all 

add  di,  32 

Jports  are  addressed 

Jnext  board 

mov  bl ,  portnum 

; rel oad 

dec  bh 
jnz  l_two 

Continue  sending  until  all 

mcv  bl ,  portnum 

Jboards  are  addressed 

Jreload  for  echo  checking 

mov  bh ,  boardnum 
mov  di,  portone 

Jload  first  destination  port 

l_three : 

cmp  dx,  si 

Jdo  not  check  source  port 

jz  next 

cmp  dx,  bullport 

Jor  bulletin  board 

jz  next 
inc  dx 

J  sta  tport 

in  al ,  dx 

Wait  for  echo 

dec  dx 

;  dataport 

and  al ,  recv_rdy 
jz  next 

;go  to  next  port  if  no  response 

in  al,  dx 

Jget  echo 

cmp  al,  [di] 

Jcheck  for  error 

next : 

jnz  errorb 
add  dx,  4 

Jnext  destination  port 

dec  bl 
jnz  l_three 

Jcontinue  receiving  until  all 

add  dx,  32 

Jports  are  addressed 

Jnext  board 

mov  bl ,  portnum 

; rel oad 

dec  bh 
jnz  l_three 

Jcontinue  receiving  until  all 

mov  bh,  boardnum 

;boards  are  addressed 

J  rel oad 

cmp  ch,  0 
jz  cont 

I i f  no  errors,  continue 

1 oopl0  : 

pop  dx 

JERROR  HANDLER 

Jget  next  error  address  (data) 

1 oopll : 

inc  dx 

J statpor t 

l_six: 

in  al,  dx 

Wait  for  echo 

and  al,  recv_rdy 
jz  l_six 


dec  dx 

Idataport 

in  al ,  dx 

Jget  echo 

cmp  al ,  error_r  ode 
jnz  reerror 

Jcheck  for  error 

mov  al,  [di] 

out  dx,  al 

Jif  no  error,  retransmit  char 
J input 

inc  dx 

J  statport 

_seven :  in  al ,  dx 

and  al  ,  recv_rdy 

Jwait  for  echo 
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j  z  l_seven 
dec  dx 

Jdataport 

in  al ,  dx 

Jget  echo 

cmp  al ,  [di] 

•check  for  error  in 

jnz  reerror 
dec  ch 

• retransmission 

5  if  we  finally  got  it  right, 

jnz  loopl0 

i to  next  error  address 

Juntil  ch  =  0 

jmp  cont 

J  c  on  t inue 

reerror : 

mov  al,  error  code 

•resend  error  code 

err  orb : 

out  dx,  al 
jmp  loopll 

push  dx 

•save  address  where  error 

inc  ch 

5  occurred 
•count  addressess 

mov  al ,  error_code 
out  dx,  al 

•send  out  error  code 

jmp  hack 

Jreturn  to  check  other  ports 

c  o  n  t : 

mov  al ,  [di] 

^CONTINUE 

Jsend  echo  tack  to  source 

mov  dx ,  si 
out  dx,  al 
cmp  al,  eni_process 

Jcheck  for  end  of  process 

jnz  no  end 
dec  cl' 

Ihegin  counting  end  process 

jz  finis 

;  c  odes 

Juntil  four  in  a  row  are 

no_end : 

jmp  nextch 
mov  cl,  ctr 

;  received 

Jif  not,  reload  and 

jmp  nextch 

Jget  next  char  input 

finis: 

re  t 

END  PROC 

Broadcast  ? 

PROC  Concxfer; 


— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  AUGUST  1986 

DESCRIPTION:  CONCXFER  TRANSMITS  DATA  RECEIVED  FROM  *  — 

— *  THE  SOURCE  TO  THE  ACTIVE  DESTINATION  TERMINAL.  A  BYTE  *— 
IS  RECEIVED  FROM  THE  SOURCE  AND  TRANSMITTED  TO  THE  *~ 
DESTINATION,  WITHOUT  ERROR  CHECKING.  ERROR  CHECKING  IS 
— *  DONE  BY  THE  TERMINALS.  CONCXFER  FINISHES  WHEN  IT  *— 

— *  RECEIVES  A  SEQUENCE  OF  FOUR  FINISH  CODES  (0Elh)  FROM  #— 

— *  THE  DESTINATION. 
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end_pr  ocess 


equ  0Flh 


s  ta  r  t : 
1 oopl : 


1 oop2 : 


n otyet : 


f  ini 


pop  ax 
pop  cx 
pop  bx 
push  ax 

mov  di,  4 

mcv  dx,  bx 

inc  dx  0 

ir  al,  dx 

and  al ,  recv_rdy 

jz  loopl 

dec  dx 

in  a  1 ,  d x 

mov  dx,  cx 

out  dx,  al 

inc  dx 

in  al ,  dx 

and  al ,  recv_rdy 

jz  loop2 

dec  dx 

in  al,  dx 

mcv  dx,  bx 

out  dx,  al 

cmp  al,  end_process 

jnz  n otyet 
dec  di 

jz  fini 
jmp  start 
mov  di ,  4 
jrrp  start 

ret 


Ireturn  address 
Jdestport  (data) 
Isourceport  (data) 
Irestore  stack 

Jfinish  code  counter 
'.sourcepcrt  (data) 

;  s  ta  tport 

Jcheck  for  incoming  char 


; datapor  t 

.get  incoming  char 
Jdestport  (data) 

Jsend  char  to  receiver 
; statport 
Jcheck  for  echo 


;dataport 
.get  echo 

Jsourceport  (data) 

?send  echo  to  transmitter 
Jif  end  process  code,  begin 
»  counting 

»if  not,  get  next  char 
'.until  four  end  process  codes 
Jare  received 


Jreload  finish  code  counter 


END  PROC  CorcxferJ 


PROC  Xfer; 

— *  AUTHOR:  THOMAS  V.  WORKS 
DATE:  SFPTFMBER  1985 

— *  DESCRIPTION:  XFER  TRANSMITS  THE  XFER  CODE  (l)  TO  THE  *— 
— *  SOURCE  INDICATING  THAT  THE  DESTINATION  TERMINAL  IS  *  — 

— *  ACTIVE. 

pop  ax  Jreturn  address 

pop  dx  Jsourceport  (data) 

push  ax  Jrestore  stack 
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xmi t 1 : 

mov  al,  01 

Jset  send_ready  to  true 

out  dx  ,  al 

ir.c  dx 

;  s  ta  tpor  t 

1 oopxl : 

in  al,  dx 

and  al,  recv_rdy 

jz  loopxl 

•wait  for  echo 

dec  dx 

Jdatapor t 

i r  al ,  dx 

Jget  echo 

crp  al,  01 

•check  for  error 

jnz  xmitl 

ret 

•if  error,  retransmit 

END  PROC 

X  f  e  r ; 

PROC  Nc 

xf  er  ? 

— : *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  SEPTEMBER  1986 

DESCRIPTION:  NO_XFER  TRANSMITS  THE  NO_XFER  CODE  (0)  - — 

T0  TKF  SOURCE  INDICATING  TEAT  THE  DESTINATION  TERMINAL 
IS  NOT  ACTIVE. 


pop  ax 

Ireturn  address 

pop  dx 

; s  ourcepcrt  (data) 

push  ax 

Jrestore  stack 

xmi t2 : 

mov  al ,  00 
out  dx,  al 

Jset  send_ready  to  false 

inc  dx 

;  statport 

1 ocpx2 : 

in  al ,  dx 

and  al ,  recv_rdy 

jz  loopx2 

Jwait  for  echo 

dec  dx 

; dataport 

in  al ,  dx 

♦get  echo 

cmp  al,  00 

•check  for  error 

jnz  xmit2 

ret 

; i f  error,  retransmit 

END  PROC  No_xferJ 
main : 

END  Coasmlit; 


WITH  Coasmlit,  Concutil,  Corename; 
PACKAGE  BODY  Poll  IS 

USE  Coasmlit,  Concutil,  Concname; 
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_ &  S',**#########;*;############:;:### _ 

~*  MAIN  CONCENTRATOR  PROGRAM  *~ 
_ # #£######*  _ 


TYPE  conctn  IS 
RECORD 

process:  byte? 
s ource :  byte ? 
destination:  byte? 

END  record; 


connection:  conctn? 


ctrl_f:  CONSTANT  BYTE 
ctrl_rr.:  CONSTANT  BYTE 
Ctrl  d:  CONSTANT  BYTE 
Ctrl "v  :  CONSTANT  EYTE 
Ctrl  b :  CONSTANT  BYTE 


byte  (16#06#)? 
byte  (16#0D#); 
byte  (16#04#); 
byte  (16#17#); 
by-te  (16#02#)? 


bcardno:  CONSTANT  :=  3? 
portno:  CONSTANT  :=  8? 

firstport:  CONSTANT  :=  16#100#5 

lastport:  CONSTANT  :=  16#19C#?  —BULLETIN  BOARD — 


pollport:  Integer? 
inoueue:  Boolean? 
nurriqueue:  Integer  :=  0? 
index:  Integer  :=  0* 
nev_queue:  Integer? 
r,achine_c oun t :  Integer  :=  0? 
input:  byte? 

PROCEDURE  Convert  (idx:  IN  Integer)  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 
— *  DATE:  SEPTEMBER  1986 

DESCRIPTION:  CONVERT  CONVERTS  THE  CONNECTION  RECORD 

— *  RECEIVED  EF.OM  TEE  TERMINAL  TO  PEYSICAL  PORT  ADDRESSES. 


BEGIN 


CASE  queue( idx) .destport  IS 

WHEN  1  =>  queue ( idx ). destport 
WHEN  2  =>  queue ( idx ). destport 
WHEN  3  =>  queue( idx  )  .destport 
WHEN  4  =>  queue ( idx  )  .destport 
WHEN  6  =>  queue( idx) .destport 
WEEN  6  =>  queue ( idx ) .destport 
WHEN  7  =>  queue ( idx  ). des tport 
WFFN  8  =>  queue(idx) .destport 
WHEN  9  =>  queue ( id x ). des tport 
WHEN  10  =>  queue ( idx ) .destport 


=  15#100#? 

=  ie#i04#; 

=  16#108#; 

=  ie#i0c#; 

=  is#ii0#; 

=  I6#ii4#; 

=  i6#iie#; 

=  i6#nc#; 

=  16#140#; 
:=  16#144#? 
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WHEN 

11 

=> 

q  ueue (  idx ) 

.destport 

WHEN 

12 

queue ( idx ) 

•destport 

WHEN 

1? 

=> 

queue ( idx ) 

.destport 

WHEN 

14 

=  \ 

/ 

queue ( idx ) 

.destport 

WHEN 

15 

=> 

q  ueue ( idx ) 

. destport 

WHEN 

16 

_  \ 

queue ( idx ) 

.destport 

WHEN 

17 

=> 

q  ueue ( idx ) 

.destport 

WHEN 

18 

__  \ 

queue  ( idx) 

.destport 

WHEN 

19 

—  \ 

queue( idx) 

.destport 

WHEN 

2^ 

=> 

queue( idx) 

.destport 

WHEN 

21 

=> 

queue ( idx ) 

.  destport 

WHEN 

22 

=> 

q  ueue ( idx ) 

.destport 

WHEN 

23 

“  / 

queue ( idx )  , 

.destport 

WREN 

24 

=> 

queue ( idx ) 

.destport 

WHEN 

OTHERS  =>  NULL? 

END  CAS! 

e; 

CASE  queue ( idx ). s ourcepor t  IS 


WHEN 
WHEN 
WEEN 
WHEN 
WHFN 
WHEN 
WEEN 
WHEN 
WHEN 
WEEN 
WEEN 
WHEN 
WHEN 
WHEN 
VEEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WEEN 
VEEN 
WHEN 
WEEN 

end  case; 


=>  queue ( idx ). s ourceport 
=>  queue ( idx ). sourceport 
=>  queue( idx ). sourceport 
=>  queue ( idx ). sourceport 
sourceport 
sourceport 
=>  queue ( idx  )  .sourceport 
=N  queue ( idx ). sourceport 
=  ">  queue  (  idx  ).  sourceport 


1 
2 

3 

4  ^ 

5  =>  queue (  idx ) . 

6  =>  queue ( idx } . 


10 

—  N 

queue ( idx ) 

.sourceport 

11 

-  \ 

—  / 

queue ( idx ) , 

.  sourcepor  t 

12 

=  > 

queue ( idx ) 

.  sourcepor  t 

13 

=  \ 

queued idx) 

.sourceport 

14 

queue ( idx ) 

.  sourceport 

15 

=  > 

queue ( idx ) 

.  sourceport 

16 

queue ( idx ) , 

.  sourceport 

17 

=r> 

queue( idx) , 

.sourceport 

18 

—  \ 

queue ( idx ) 

.  sourceport 

19 

queue ( idx ) , 

.  sourceport 

20 

=  > 

queue ( idx) , 

.  sourceport 

21 

=  \ 

queue ( idx ) 

.sourceport 

22 

=> 

queue { idx ) 

.sourceport 

23 

=> 

queue ( idx ) , 

•sourceport 

24 

=> 

queue ( idx ) . 

.  sourceport 

OTHERS  =>  NULL? 

END  Convert; 


BEGIN 

LOOP  —  MAIN  — 
pollpcrt  :=  firstport; 
machine  c cunt  : =  0 ; 


ie#i4s#; 
16#14C  # ; 
16#150#; 
15#1S4#; 
16#158#J 
16#15C#5 
16#180#J 
16#164#J 
16#188#; 
i6#iec#; 

is#i90#; 

16#194#; 

16#198#; 

16#19C#; 


=  ie#i00#; 

=  16#104#; 

=  ie#i08#; 

=  ie#i0C#; 

=  16#H0#; 

=  is#ii4#; 

=  is#ii8#; 

=  i6#nc#; 

=  ie#i40#; 
:=  16#144#; 
:=  16#148#; 
:=  16#14C#J 
:=  16#150#; 
:=  16#  154#; 
:=  16#158#; 
:=  16#15C#; 
:=  15#180#; 
:=  16#184#; 
:=  16# 188#; 
:=  16#18C#; 
:=  16#190#; 
:=  16#1S4#; 
:=  15#198#J 
:=  16#19C#; 
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Outer : 

FOR  i  IN  1 .  . toardno  LOOP 
FOR  j  IN  1 . . por tno  IOOF 

machine  count  :=  macfcine_count  +  li 
active_rist ( machine_coun t)  :=  false* 
Check_port  (pollport,  ready); 

IF  ready  THEN 

active_list (machine_count )  :=  true; 

— *  CHECK  QUEUE  FOR  WAITING  PROCESSES  FOR 
POLLED  PORT 

Check_queue  (numqueue,  pollport,  index, 
inqueue ) ; 

IF  inqueue  THEN 

SERVICE  WAITING  PROCESS  FIRST 
ESTABLISH  CONNECTION  WITH  SOURCE  OF 
— : *  WAITING  PROCESS 

Connect  (queue( index) .sourceport, 
connection'ADDRESS); 


— *  DECODE  CONNECTION  RFCORD  *— 


queue ( index ). sourcepor t  := 


Integer  (connection. source) ; 
queue ( index ) .destport  := 

Integer  (connection.destination) ; 
queue ( index ). pr oces s_ type  := 

connection. process** 


Convert  ( index) ; 


— *  TELL  SOURCE  TO  SEND  *  — 


Xfer  ( queue ( i ndex ). s ourcepor t ) ; 

— *  ESTABLISH  DATA  COMMUNICATION  CHANNEL  *- 

Concxfer  ( queue ( i ndex ) .sourceport  , 
queue ( index ) .dest por t ) ; 

— *  REMOVE  PROCESS  FROM  QUEUE  *  — 


numqueue  :=  numqueue  -  1* 

FOR  m  IN  1 .  .255  LOOP 
FOR  n  IN  1 .  .255  LOOP 

null; 

— *  DELAY  TO  ALLOW  RECEIVER  TO  GET  READY  *- 
TO  SEND  *- 

END  loop; 
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END  loop; 

Check_pcrt  ^pollport,  ready); 

— *  IF  POLLED  PORT  DOES  NOT  SEND  IN  *— 
— *  TIME,  RESUME  POLLING  FROM  START 
EXIT  Outer  WHEN  NOT  ready; 

— *  WHEN  WAITING  PROCESS  IS  FINISHED  *— 
— *  TELL  POLLED  PORT  NOTHING  WAITING  *— 
— *  AND  PROCESS  ORIGINAL  REQUEST 
Queue  status  (pollport,  zero); 

END  if;  --in queue — 

— *  PROCESS  NEW  REQUEST  * — 

— *  ESTABLISH  CONNECTION  WITH  SOURCF  OF  *— 
— *  ORIGINAL  REQUEST  *— 

Connect  (pollport,  connection'ADDRESS) ; 

— *  LATEST  QUEUE  POSITION  *  — 

new_queue  :=  numqueue  +  1? 

DECODF  CONNECTION  *— 


queue(new_aueue) .sourceport  := 

Integer  ( connec ti on . s ource ) ; 
aueue(new_queue ) .destport  :  = 

Integer  (connection. destination); 
queue ( new_queue ). proce ss_ type  := 

connection. process; 


Convert  (new_queue); 


IF  connection  .destination  =  byte  (0)  THEN 


~3 *  POLL  ALL  DESTINATION  PORTS  EXCEPT 
— *  SOURCE  AND  BULLETIN  BOARD  *  — 


pollport  :=  firstport; 

FOR  k  IN  1 .  .portno  LOOP 
IF  (pollport  /= 

queue ( new_ queue ) .sourceport) 
AND  (pollport  /=  lastport)  THEN 
Check_port  (pollport,  ready); 

IF  ready  THEN 

— *  TELL  DESTINATION  *— 


queue_status  (pollport, 

connec ti on. process) 5 

end  if; 

END  if; 
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pollport  :=  pollport  +  45 
END  LOC?; 

FOR  n  IN  1 . .255  LOOP 
FOR  nr  IN  1 .  .255  LOOP 

NtiLLJ  DELAY  TO  ALLOW  RECEIVER 

— *  TO  GET  READY 

END  loop; 
end  loop; 

TELL  SOURCE  TO  BROADCAST 

If er  ( queue ( new  queue) . sourceport ) ; 

Broadcast  (queui( nev_queue) .sourceport, 
input ) J 

RESET  FOLLPORT  AND  RESUME  POLLING 

pollport  :=  queue ( new_queue ). s our  cep  or t ; 
ELSIF  connection .process”3  ctrl_w  THEN 

— *  TELL  SOURCE  TO  RECEIVE  NET  STATUS 
— *  THEN  SEND  NET  STATUS 

Xfer  (pollport); 

Net  stat  (pollport); 

ELSE 

PROCESS  NORMAL  REQUEST  *— 

— *  IS  DESTINATION  ACTIVE? 

Checic_p or t  (queue ( nev_queue)  .destport , 
ready )  5 

IF  ready  THEN 

— *  TELL  DESTINATION  WHAT  IS  COMING  *— 

Queue_status  ( queue (nev_queue) .destport, 
queue (new_queue) .process_type) 

— *  TELL  SOURCE  TO  SEND 

Xfer  (pollport); 

IF  connection. process  =  ctrl_b  THEN 

— *  ESTABLISH  CONNECTION  WITH 
— : *  BULLETIN  BOARD 

C oncxfer  (queue (new_queue ). destport, 

queue (new _ queue ) .sourceport) 
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FLSE 


— *  ESTABLISH  DATA  COMMUNICATION  *— 

— *  CHANNEL  *— 

C  cncxfer  (queue(new_queue).sourceport, 
queue(new_queue).destport); 

END  if; 

ELSE 

TELL  SOURCE ,  DESTINATION  INACTIVE  *  — 
No_xfer  (pollport); 

IF  ( queue ( new_queue ) .proces s_t ype  =  ctrl_ 
OR  (queue (nev_queue) .process'type  =  Ctrl” 
THEN 


— *  PLACE  PROCESS  IN  OUFUE  *— 
— -  IF  FILE  OR  MESSAGE  *— 

r.urqueue  :=  numqueue  +  i; 

end  if; 

END  if; 
fnd  if; 

END  IF?  —READY  — 

FOllport  :=  pollport  +  4; 

EXIT  WHEN  pollport  =  lastport; 

— *  DON 'T  POLL  BULLETIN  BOARD  *  — 

END  loop;  —INNER  FOR  LOOP— 

pollport  :=  pollport  +  325 
END  LOOP  Outer? 

FND  LOOP;  —MAIN  LOOP- 

END  Poll; 


The  following  hatch  file  (conc.suh)  is  used  to  compile  the 
preceeding  programs: 

era  coasmlih.sym 
era  concutil . sym 
era  concnarre .  sym 
era  concutil  .  jrl 
era  coasmlih.jrl 
era  poll. jrl 
era  poll.cmd 
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Janus  concr.ame.spc 
janus  c oa smlit . spc 
jar.us  concutil.spc 
jasmSS  coasrrlit 
janus  concutil 
janus  pell 
jlink  poll 
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APPENDIX  F 


GLOSSARY 


1.  Z-100 

Z-100  is  the  specific  rrodel  name  for  the  micro¬ 
computers  used  ir.  this  network.  The  vendor  is  Zenith  Data 
Systems . 


2.  SBC 

SBC  is  an  acronym  for  Single  Board  Computer.  It  is  a 
configuration  of  VLSI  (Very  Large  Scale  Integration)  cir¬ 
cuitry  on  one  computer  board  capable  of  performing  the 
functions  of  a  computer.  The  SBC  is  the  driving  force  in  the 
Concentrator.  The  vendor  of  the  66/12A  SEC  used  in  this 
thesis  is  Intel  Corporation. 

3.  Concentrator 

The  Concentrator  is  the  collection  of  hardware  and 
software  that  performs  the  network  switching  functions. 

4.  MULTIBUS 

MULTIBUS  is  the  specific  model  name  for  the  hardware 
that  allows  multiple  SBC's  to  communicate  directly  with 
common  memory. 

5.  Local  Area  Network 

A  Local  Area  Network  is  any  network  that  operates 
exclusively  within  a  low  radius  (max  50  miles)  region! 
usually  a  single  building  or  a  group  of  buildings. 
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6.  Workstation 


A  Workstation  is  viewed  as  the  Z  — 100  microcomputer  am 
associated  peripheral  devices  that  perform  the  application 
functions  cf  the  network. 

7.  Process 

Processes  are  viewed  as  the  transfer  of  files, 
messages,  or  directorys  between  Z-100  workstations.  Each 
process  has  a  sending  and  a  receiving  function. 

8.  Communication 

Communication  is  viewed  as  transmitting  data  and/or 
commands  between  the  sending  and  receiving  functions  of  a 
process . 

S.  Lata  Communication  Channel 

Lata  Communication  Channel  refers  to  the  channel  or 
'pathway'  used  to  transfer  intra-process  communications 
between  Z-100  workstations. 

10.  Circuit  Switching 

Circuit  Switching  refers  to  the  method  of  network 
communication  whereby  the  entire  message  containing  data  and 
commands  is  transmitted  from  the  sender  to  the  receiver  along 
a  dedicated  communication  channel. 

11.  Ports 

Ports  are  channels  through  which  processes  communicate. 
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12.  US  ART 


US  ART  is  an  aeronyrr  for  Universal  Synchronous/ 
Asynchronous  Receiver/Transmitter.  It  is  a  microprocessor 
that  provides  communication  interface  between  computers  or 
between  a  ''crrputer  and  a  peripheral  device. 

13.  NFS 

NFS  is  an  acronym  for  Naval  Postgraduate  School, 
Monterey,  California. 
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